# /lib/MyApp/Controller/Swear.pm

package MyApp::Controller::Swear;
use Mojo::Base 'Mojolicious::Controller';
use Mojo::Util qw(trim);

# Controller for the "Swear Jar" financial tracking feature.
# Features:
#   - Public dashboard with leaderboards and transaction history
#   - Transaction management (Issuing fines, recording payments, logging spending)
#   - Participant administration (Family member roster)
# Integration points:
#   - Depends on authentication context for write operations
#   - Uses DB::SwearJar helpers for ledger persistence

# Renders the main Swear Jar dashboard.
# Route: GET /swear
# Parameters: None
# Returns:
#   Rendered HTML template 'swear/swear' with:
#     - leaderboard: Aggregated debt stats
#     - jar_balance: Current cash in hand
#     - history: Recent transaction log
#     - members: Active participants
sub index {
    my $c = shift;
    
    # Retrieve aggregate data for dashboard visualization
    my $leaderboard = $c->db->get_swear_leaderboard();
    my $jar_balance = $c->db->get_jar_balance();
    my $history     = $c->db->get_swear_history();
    
    # Retrieve roster for form selection
    my $members     = $c->db->get_family_members(); 

    $c->stash(
        leaderboard  => $leaderboard,
        jar_balance  => $jar_balance,
        history      => $history,
        members      => $members,
        is_logged_in => $c->is_logged_in
    );
    
    $c->render('swear/swear');
}

# Records a new fine against a user.
# Route: POST /swear/add
# Parameters:
#   perpetrator : Name of the family member
#   amount      : Monetary value (Decimal, e.g., 1.50)
#   reason      : Context for the fine
# Returns:
#   Redirects to dashboard on success
#   Renders error on validation failure
sub add_fine {
    my $c = shift;

    my $name   = trim($c->param('perpetrator') // '');
    my $amount = trim($c->param('amount') // '');
    my $reason = trim($c->param('reason') // '');

    # Validate amount format (currency)
    unless ($name && $amount =~ /^\d+(\.\d{1,2})?$/) {
        return $c->render_error('Invalid Name or Amount');
    }

    # Persist fine to ledger (status: Unpaid)
    $c->db->add_swear($name, $amount, $reason);
    $c->redirect_to('/swear');
}

# Settles outstanding debts for a user.
# Route: POST /swear/pay
# Parameters:
#   perpetrator : Name of the user clearing their debt
# Returns:
#   Redirects to dashboard
sub pay_debt {
    my $c = shift;
    
    my $name = trim($c->param('perpetrator') // '');
    if ($name) {
        # Update ledger status to Paid
        $c->db->mark_user_paid($name);
    }
    $c->redirect_to('/swear');
}

# Records a withdrawal from the jar balance.
# Route: POST /swear/spend
# Parameters:
#   amount : Monetary value to withdraw
#   reason : Description of expenditure
# Returns:
#   Redirects to dashboard
sub spend {
    my $c = shift;
    
    my $amount = trim($c->param('amount') // '');
    my $reason = trim($c->param('reason') // '');

    # Validate amount and process withdrawal
    if ($amount =~ /^\d+(\.\d{1,2})?$/) {
        $c->db->withdraw_from_jar($amount, $reason);
    }
    $c->redirect_to('/swear');
}

# Renders the family member management interface.
# Route: GET /swear/manage
# Parameters: None
# Returns:
#   Rendered HTML template 'swear/manage' with current roster
sub manage {
    my $c = shift;
    
    my $members = $c->db->get_family_members();
    $c->render('swear/manage', members => $members);
}

# Registers a new family member to the roster.
# Route: POST /swear/member/add
# Parameters:
#   name         : Display name
#   default_fine : Default fine amount (defaults to 2.00)
# Returns:
#   Redirects to management page
sub add_member {
    my $c = shift;
    
    my $name = trim($c->param('name') // '');
    my $def  = trim($c->param('default_fine') // '2.00');
    
    # Validate currency format before insertion
    if ($name && $def =~ /^\d+(\.\d{1,2})?$/) {
        eval { $c->db->add_family_member($name, $def); };
    }
    $c->redirect_to('/swear/manage');
}

# Removes a family member from the roster.
# Route: POST /swear/member/delete
# Parameters:
#   id : Unique Member ID
# Returns:
#   Redirects to management page
sub delete_member {
    my $c = shift;
    
    my $id = $c->param('id');
    
    # Perform soft delete via DB helper
    $c->db->remove_family_member($id);
    $c->redirect_to('/swear/manage');
}

1;