# Tests break because tye YAML is invalid...?
# -dcp
-use YAML::Any qw(Load Dump);
-
-our $VERSION = '0.28';
-our $AUTHORITY = 'cpan:STEVAN';
-
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) );
}