20 |
sub full_path { |
sub full_path { |
21 |
my ( $self, $path ) = @_; |
my ( $self, $path ) = @_; |
22 |
$full_path = "$path/json"; |
$full_path = "$path/json"; |
23 |
warn "## full_path: $full_path"; |
warn "## full_path: $full_path" if $debug; |
24 |
return $full_path; |
return $full_path; |
25 |
} |
} |
26 |
|
|
27 |
sub file { |
sub file { |
28 |
my ( $self, $uid ) = @_; |
my ( $self, $uid ) = @_; |
29 |
my $file = "$full_path/$uid" . $self->extension; |
my $file = "$full_path/$uid" . $self->extension; |
30 |
warn "## file -> $file"; |
warn "## file -> $file" if $debug; |
31 |
return $file; |
return $file; |
32 |
} |
} |
33 |
|
|