14 |
|
|
15 |
=head1 VERSION |
=head1 VERSION |
16 |
|
|
17 |
Version 0.12 |
Version 0.13 |
18 |
|
|
19 |
=cut |
=cut |
20 |
|
|
21 |
our $VERSION = '0.12'; |
our $VERSION = '0.13'; |
22 |
|
|
23 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
24 |
|
|
180 |
|
|
181 |
my $input = $args->{input} || ''; |
my $input = $args->{input} || ''; |
182 |
|
|
183 |
my $cache_file = "$cache_path/$database/$input/$id"; |
my $cache_file = "$cache_path/ds/$database/$input/$id"; |
184 |
$cache_file =~ s#//#/#go; |
$cache_file =~ s#//#/#go; |
185 |
|
|
186 |
$log->debug("using cache_file $cache_file"); |
$log->debug("using cache_file $cache_file"); |
240 |
|
|
241 |
my $input = $args->{input} || ''; |
my $input = $args->{input} || ''; |
242 |
|
|
243 |
my $cache_file = $self->{path} . "/$database/$input/"; |
my $cache_file = $self->{path} . "/ds/$database/$input/"; |
244 |
$cache_file =~ s#//#/#go; |
$cache_file =~ s#//#/#go; |
245 |
|
|
246 |
mkpath($cache_file) unless (-d $cache_file); |
mkpath($cache_file) unless (-d $cache_file); |