conf/invoice_template_statement

   1
   2                                  Statement
   3                                  { substr("Page $page of $total_pages          ", 0, 19); } { use Date::Format; time2str("%x", $date); }  Invoice #{ $invnum; }
   4
   5
   6 { $company_name; }
   7 { $company_address; }
   8
   9
  10 { $address[0]; }
  11 { $address[1]; }
  12 { $address[2]; }
  13 { $address[3]; }
  14 { $address[4]; }
  15 { $address[5]; }
  16
  17 {
  18   join("\n",
  19     map {
  20       my ( $desc, $price ) = @{$_};
  21       "  ". substr( $desc. " "x65, 0, 65). " ". substr( $price. " "x11, 0, 11);
  22     } invoice_lines(31)
  23   );
  24 }
  25
  26  -=> { $company_name; } <=-