46 |
|
|
47 |
our $out; |
our $out; |
48 |
|
|
49 |
|
our $cache; |
50 |
|
|
51 |
sub run_views { |
sub run_views { |
52 |
@views = sort glob 'views/*.pl' unless @views; |
@views = sort glob 'views/*.pl' unless @views; |
53 |
warn "# views ", dump @views; |
warn "# views ", dump @views; |
68 |
$t = time; |
$t = time; |
69 |
|
|
70 |
foreach my $pos ( $offset + 1 .. $input->size ) { |
foreach my $pos ( $offset + 1 .. $input->size ) { |
71 |
my $rec = $input->fetch_rec($pos); |
my $rec = $cache->{$pos} ||= $input->fetch_rec($pos); |
72 |
if ( ! $rec ) { |
if ( ! $rec ) { |
73 |
warn "END at $pos"; |
warn "END at $pos"; |
74 |
last; |
last; |