--- trunk/lib/WebPAC/Normalize.pm	2008/10/26 15:57:37	1118
+++ trunk/lib/WebPAC/Normalize.pm	2009/05/29 20:32:13	1205
@@ -150,6 +150,12 @@
 
 sub _get_rec { $rec };
 
+sub rec_array {
+	my $d = $rec->{ $_[0] };
+	return @$d if ref($d) eq 'ARRAY';
+	die "field $_[0] not array: ",dump( $d );
+}
+
 =head2 _set_config
 
 Set current config hash
@@ -346,6 +352,22 @@
 
 sub sorted { to( 'sorted', @_ ) }
 
+=head2 row
+
+Insert new row of data into output module
+
+  row( column => 'foo', column2 => 'bar' );
+
+=cut
+
+use Data::Dump qw/dump/;
+
+sub row {
+	die "array doesn't have even number of elements but $#_: ",dump( @_ ) if $#_ % 2 != 1;
+
+	push @{ $out->{'_rows'} }, {@_};
+}
+
 
 =head1 Functions to extract data from input