13a8cb28b3e72fb13c82e1a9227d92afaf1c9d4b
[kivitendo-erp.git] / BankAccount.pm
1 package SL::Presenter::BankAccount;
2
3 use strict;
4
5 use parent qw(Exporter);
6
7 use Exporter qw(import);
8 our @EXPORT = qw(account_number bank_code);
9
10 use Carp;
11
12 sub account_number {
13   my ($self, $bank_account) = @_;
14   return $self->escaped_text($bank_account->account_number);
15 }
16
17 sub bank_code {
18   my ($self, $bank_account) = @_;
19   return $self->escaped_text($bank_account->bank_code);
20 }
21
22 1;