Parent Directory | Revision Log
Sack - in-memory interactive object database in pure perl
1 | dpavlin | 1 | |
2 | $out->{fields}->{$_}++ foreach keys %$rec; | ||
3 | |||
4 | $out->{years}->{ $rec->{PY}->[0] }++; | ||
5 | |||
6 | $out->{DT}->{ $_ }++ foreach @{ $rec->{DT} }; | ||
7 | |||
8 | # XXX dump first record | ||
9 | $out->{debug} ||= $rec; | ||
10 | |||
11 | #push @{ $out->{TI} }, $rec->{TI}; | ||
12 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |