SL/Presenter/BankAccount.pm

   1 package SL::Presenter::BankAccount;
   2
   3 use strict;
   4
   5 use SL::Presenter::EscapedText qw(escape);
   6
   7 use Exporter qw(import);
   8 our @EXPORT_OK = qw(account_number bank_code);
   9
  10 use Carp;
  11
  12 sub account_number {
  13   my ($bank_account) = @_;
  14   escape($bank_account->account_number);
  15 }
  16
  17 sub bank_code {
  18   my ($bank_account) = @_;
  19   escape($bank_account->bank_code);
  20 }
  21
  22 1;