|
package SL::Presenter::BankAccount;
|
|
|
|
use strict;
|
|
|
|
use SL::Presenter::EscapedText qw(escape);
|
|
|
|
use Exporter qw(import);
|
|
our @EXPORT_OK = qw(account_number bank_code);
|
|
|
|
use Carp;
|
|
|
|
sub account_number {
|
|
my ($bank_account) = @_;
|
|
escape($bank_account->account_number);
|
|
}
|
|
|
|
sub bank_code {
|
|
my ($bank_account) = @_;
|
|
escape($bank_account->bank_code);
|
|
}
|
|
|
|
1;
|