X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FFormat%2FYAML.pm;h=c80e2e21f102e4ecc538915e08109a95cd799278;hb=d1f98188a6568ce657a6ad45a26247b6d6a5acc1;hp=cec94d181e018210f069b1ee6c9873d310ef1b54;hpb=4f94761e9fd6f813b81a201c50aecd5bdac2a80f;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Format/YAML.pm b/lib/MooseX/Storage/Format/YAML.pm index cec94d1..c80e2e2 100644 --- a/lib/MooseX/Storage/Format/YAML.pm +++ b/lib/MooseX/Storage/Format/YAML.pm @@ -5,18 +5,18 @@ use Moose::Role; # Tests break because tye YAML is invalid...? # -dcp -use YAML::Any qw(Load Dump); - requires 'pack'; requires 'unpack'; sub thaw { my ( $class, $yaml, @args ) = @_; - $class->unpack( Load($yaml), @args ); + require YAML::Any; + $class->unpack( YAML::Any::Load($yaml), @args ); } sub freeze { my ( $self, @args ) = @_; + require YAML::Any; Dump( $self->pack(@args) ); }