X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FFormat%2FYAML.pm;h=69033c4656c20d4e30ed221836708d90ef2e79d6;hb=98ae09f003486b7c70661507771598c6101f23be;hp=dad4120445cf3e4b87bc08c68c2e55680478706e;hpb=c4a322ec86aff913da11191ac43d3edfbc403ab5;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Format/YAML.pm b/lib/MooseX/Storage/Format/YAML.pm index dad4120..69033c4 100644 --- a/lib/MooseX/Storage/Format/YAML.pm +++ b/lib/MooseX/Storage/Format/YAML.pm @@ -7,19 +7,19 @@ use Best [ [ qw[Load Dump] ] ]; -our $VERSION = '0.01'; +our $VERSION = '0.02'; requires 'pack'; requires 'unpack'; sub thaw { - my ( $class, $json ) = @_; - $class->unpack( Load($json) ); + my ( $class, $json, @args ) = @_; + $class->unpack( Load($json), @args ); } sub freeze { - my $self = shift; - Dump( $self->pack() ); + my ( $self, @args ) = @_; + Dump( $self->pack(@args) ); } 1;