--- trunk/views/00.demo.pl	2009/09/20 18:42:07	1
+++ trunk/views/00.demo.pl	2009/10/30 14:49:39	160
@@ -1,12 +1,38 @@
 
-$out->{fields}->{$_}++ foreach keys %$rec;
+#$out->{ 'fields +' }->{$_}++ foreach keys %$rec;
 
-$out->{years}->{ $rec->{PY}->[0] }++;
+#$out->{ 'years +' }->{ $rec->{PY}->[0] }++;
 
-$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };
+$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };
+
+#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
+
+# FIXME out of memory without Sack::Digest
+#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} };
+#$out->{'C1#+'}->{ $_ }++ foreach @{ $rec->{C1} };
+
+
+#$out->{'C1_country+'}->{ m{,\s?([^,]+)\.$} && $1 }++ foreach @{ $rec->{C1} };
+
+#$out->{'CR#+'}->{ $_ }++ foreach @{ $rec->{CR} };
+
+#$out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };
+
+#$out->{'CR'}->{ $_ }++ foreach @{ $rec->{CR} };
+
+#my $cr = 1;
+#my $nr = $out->{_debug}->{nr}++;
+#$out->{'CR +'}->{ "$nr." . $cr++ }++ foreach @{ $rec->{CR} };
 
 # XXX dump first record
-$out->{debug} ||= $rec;
+#$out->{_debug_rec} ||= $rec;
 
 #push @{ $out->{TI} }, $rec->{TI};
 
+#push @{ $out->{_debug}->{id} }, $rec->{'000'};
+
+if (0) {
+$out->{'_debug'}->{records}++ if $rec;
+$out->{'_debug'}->{start_t} ||= time;
+$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};
+}