--- trunk/lib/Frey/Storage.pm 2008/08/12 22:28:40 170 +++ trunk/lib/Frey/Storage.pm 2008/11/01 00:58:24 224 @@ -1,6 +1,8 @@ package Frey::Storage; use Moose::Role; +with 'Frey::Path'; + #use YAML::Syck; # XXX doesn't play nice with Continuity use YAML qw/LoadFile DumpFile/; @@ -20,6 +22,7 @@ my $self = shift; my ( $filename, $data ) = @_; $filename .= '.yml'; + $self->mkbasepath( $filename ); DumpFile( $filename, $data ); }