Parent Directory | Revision Log | Patch
revision 1205 by dpavlin, Fri May 29 20:32:13 2009 UTC | revision 1210 by dpavlin, Sat May 30 15:26:25 2009 UTC | |
---|---|---|
# | Line 21 our @EXPORT = qw/ | Line 21 our @EXPORT = qw/ |
21 | get set | get set |
22 | count | count |
23 | ||
24 | row | |
25 | rec_array | |
26 | ||
27 | /; | /; |
28 | ||
29 | use warnings; | use warnings; |
# | Line 363 Insert new row of data into output modul | Line 366 Insert new row of data into output modul |
366 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
367 | ||
368 | sub row { | sub row { |
369 | die "array doesn't have even number of elements but $#_: ",dump( @_ ) if $#_ % 2 != 1; | die "array doesn't have odd number of elements but $#_: ",dump( @_ ) if $#_ % 2 == 1; |
370 | my $table = shift @_; | |
371 | push @{ $out->{'_rows'} }, {@_}; | push @{ $out->{'_rows'}->{$table} }, {@_}; |
372 | } | } |
373 | ||
374 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |