11 |
|
|
12 |
=head1 VERSION |
=head1 VERSION |
13 |
|
|
14 |
Version 0.02 |
Version 0.03 |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
our $VERSION = '0.02'; |
our $VERSION = '0.03'; |
19 |
|
|
20 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
21 |
|
|
143 |
my $cache_file; |
my $cache_file; |
144 |
|
|
145 |
if ($self->{'db'}) { |
if ($self->{'db'}) { |
146 |
my $ds = $self->{'db'}->load_ds( $mfn ); |
my $ds = $self->{'db'}->load_ds( id => $mfn ); |
147 |
$log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper($ds) }); |
$log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper($ds) }); |
148 |
return $ds if ($ds); |
return $ds if ($ds); |
149 |
$log->debug("cache miss, creating"); |
$log->debug("cache miss, creating"); |
668 |
|
|
669 |
=cut |
=cut |
670 |
|
|
671 |
1; # End of WebPAC::DB |
1; # End of WebPAC::Normalize |