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;