23 |
sub store { |
sub store { |
24 |
my $self = shift; |
my $self = shift; |
25 |
my ( $filename, $data ) = @_; |
my ( $filename, $data ) = @_; |
26 |
|
$self->mkbasepath( $filename ); |
27 |
if ( $filename =~ m{\.ya?ml$}i ) { |
if ( $filename =~ m{\.ya?ml$}i ) { |
|
$self->mkbasepath( $filename ); |
|
28 |
DumpFile( $filename, $data ); |
DumpFile( $filename, $data ); |
29 |
} else { |
} else { |
30 |
croak "without extension we can save only scalar data" if ref($data); |
croak "without extension we can save only scalar data" if ref($data); |
71 |
$self->load( $filename ); |
$self->load( $filename ); |
72 |
} |
} |
73 |
|
|
74 |
|
no Moose::Role; |
75 |
|
|
76 |
1; |
1; |