Parent Directory | Revision Log | Patch
revision 293 by dpavlin, Sat Nov 1 00:58:24 2008 UTC | revision 294 by dpavlin, Wed Nov 5 08:21:05 2008 UTC | |
---|---|---|
# | Line 21 has 'storage_timestamp' => ( | Line 21 has 'storage_timestamp' => ( |
21 | sub store { | sub store { |
22 | my $self = shift; | my $self = shift; |
23 | my ( $filename, $data ) = @_; | my ( $filename, $data ) = @_; |
24 | $filename .= '.yml'; | $filename .= '.yml' unless $filename =~ m{\.ya?ml$}i; |
25 | $self->mkbasepath( $filename ); | $self->mkbasepath( $filename ); |
26 | DumpFile( $filename, $data ); | DumpFile( $filename, $data ); |
27 | warn "created $filename ", -s $filename; | |
28 | } | } |
29 | ||
30 | =head2 load | =head2 load |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |