71 |
|
|
72 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
73 |
|
|
74 |
foreach my $p (qw/path database/) { |
foreach my $p (qw/path/) { |
75 |
$log->logconfess("need $p") unless ($self->{$p}); |
$log->logconfess("need $p") unless ($self->{$p}); |
76 |
} |
} |
77 |
|
|
176 |
$log->logconfess("got hash, but without id") unless (defined($id)); |
$log->logconfess("got hash, but without id") unless (defined($id)); |
177 |
$log->logconfess("got hash, but id [$id] isn't number") unless ($id =~ /^\d+$/); |
$log->logconfess("got hash, but id [$id] isn't number") unless ($id =~ /^\d+$/); |
178 |
|
|
179 |
my $database = $args->{database} || $self->{database}; |
my $database = $args->{database} || $self->{database} || $log->logconfess("no database?"); |
|
my $input = $args->{input} || ''; |
|
180 |
|
|
181 |
$log->logconfess("can't find database name") unless ($database); |
my $input = $args->{input} || ''; |
182 |
|
|
183 |
my $cache_file = "$cache_path/$database/$input/$id"; |
my $cache_file = "$cache_path/$database/$input/$id"; |
184 |
$cache_file =~ s#//#/#go; |
$cache_file =~ s#//#/#go; |
238 |
} |
} |
239 |
|
|
240 |
my $database = $args->{database} || $self->{database}; |
my $database = $args->{database} || $self->{database}; |
241 |
$log->logconfess("can't find database name") unless ($database); |
$log->logconfess("can't find database name") unless (defined($database)); |
242 |
|
|
243 |
my $input = $args->{input} || ''; |
my $input = $args->{input} || ''; |
244 |
|
|