Parent Directory | Revision Log | Patch
revision 1206 by dpavlin, Fri May 29 20:55:54 2009 UTC | revision 1210 by dpavlin, Sat May 30 15:26:25 2009 UTC | |
---|---|---|
# | Line 366 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 |