Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
...
'
$VAR1 = 'a';
$VAR2 = 1;
  2. or download this
    $ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
...
$VAR1 = {
          'a' => 1
        };
  3. or download this
    sub get_transactions {
    my ($class, $transaction_id) = @_;
    ...
}
  4. or download this
        ...
    my $transactions_id = shift;
...
    my $ar = $dbh->selectall_arrayref( $sql, undef, $transactions_id )
+;
    print Dumper $ar;
    ...