SL/Presenter/BankTransaction.pm

   1 package SL::Presenter::BankTransaction;
   2
   3 use strict;
   4 use utf8;
   5
   6 use SL::Locale::String qw(t8);
   7 use SL::Presenter::EscapedText qw(escape);
   8
   9 use Exporter qw(import);
  10 our @EXPORT_OK = qw(show bank_transaction);
  11
  12 use Carp;
  13
  14 sub show {goto &bank_account};
  15
  16 sub bank_transaction {
  17   my ($bank_transaction) = @_;
  18   my $bank_account = $bank_transaction->local_bank_account;
  19
  20   escape(join ' ', (
  21     t8('Bank transaction'),
  22     $bank_transaction->transdate . ":",
  23     $bank_account->bank_code,
  24     $bank_account->account_number,
  25     "→",
  26     $bank_transaction->remote_bank_code,
  27     $bank_transaction->remote_account_number,
  28     "-",
  29     $bank_transaction->amount . $bank_transaction->currency->name,
  30   ));
  31 }
  32
  33 1;
  34
  35 __END__
  36
  37 =pod
  38
  39 =encoding utf8
  40
  41 =head1 NAME
  42
  43 SL::Presenter::BankTransaction - Presenter module for SL::DB::BankTransaction objects
  44
  45 =head1 SYNOPSIS
  46
  47   my $object = SL::DB::Manager::BankTransaction->get_first();
  48   my $html   = SL::Presenter::BankTransaction::bank_transaction($object);
  49   # or
  50   my $html   = $object->presenter->show();
  51
  52 =head1 FUNCTIONS
  53
  54 =over 4
  55
  56 =item C<show $object>
  57
  58 Alias for C<bank_transaction $object>.
  59
  60 =item C<bank_transaction $object>
  61
  62 Returns a rendered version (actually an instance of
  63 L<SL::Presenter::EscapedText>) of the bank transaction object
  64 C<$object>.
  65
  66 =back
  67
  68 =head1 BUGS
  69
  70 Nothing here yet.
  71
  72 =head1 AUTHOR
  73
  74 Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
  75
  76 =cut