Select Code to Download

sub new {
    my $class = shift;
...
    bless( $closure, $class );
    return $closure;
}

# public to add accounts to the creditaccounts
sub addCreditAccount {
...
    my $accountsref = &{$closure}( "CREDITACCOUNTS" );
    push @{ $accountsref }, $account;
}

# public getBalansCreditAmount to get the amount of all accounts
sub getBalansCreditAmount {
...
    }
    return $totalCreditAmount;
}

# private getCreditAccounts
sub getCreditAccounts {
...
    my @accounts = @{ &{$closure}( "CREDITACCOUNTS" ) };
    return @accounts;
}