kivitendo/SL/Presenter/BankAccount.pm @ dd9732d8
| 6a12a968 | Niclas Zimmermann | package SL::Presenter::BankAccount;
|
||
use strict;
|
||||
| 0e5e3501 | Sven Schöling | use SL::Presenter::EscapedText qw(escape);
|
||
| 6a12a968 | Niclas Zimmermann | |||
use Exporter qw(import);
|
||||
| 0e5e3501 | Sven Schöling | our @EXPORT_OK = qw(account_number bank_code);
|
||
| 6a12a968 | Niclas Zimmermann | |||
use Carp;
|
||||
sub account_number {
|
||||
| 0e5e3501 | Sven Schöling | my ($bank_account) = @_;
|
||
escape($bank_account->account_number);
|
||||
| 6a12a968 | Niclas Zimmermann | }
|
||
sub bank_code {
|
||||
| 0e5e3501 | Sven Schöling | my ($bank_account) = @_;
|
||
escape($bank_account->bank_code);
|
||||
| 6a12a968 | Niclas Zimmermann | }
|
||
1;
|