use Moose qw(confess blessed);
use MooseX::Storage::Engine ();
-use utf8 ();
sub peek {
my ($class, $data, %options) = @_;
}
sub _inflate_json {
- my ($class, $json) = @_;
+ my ($self, $json) = @_;
eval { require JSON::Any; JSON::Any->import };
confess "Could not load JSON module because : $@" if $@;
}
sub _inflate_yaml {
- my ($class, $yaml) = @_;
+ my ($self, $yaml) = @_;
require Best;
eval { Best->import([[ qw[YAML::Syck YAML] ]]) };