use Moose qw(confess blessed);
use MooseX::Storage::Engine ();
-use utf8 ();
-
-our $VERSION = '0.25';
-our $AUTHORITY = 'cpan:STEVAN';
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] ]]) };
+ eval { require YAML::Any; YAML::Any->import };
confess "Could not load YAML module because : $@" if $@;
- my $inflater = Best->which('YAML::Syck')->can('Load');
-
- (defined $inflater)
- || confess "Could not load the YAML inflator";
-
- my $data = eval { $inflater->($yaml) };
+ my $data = eval { Load($yaml) };
if ($@) {
confess "There was an error when attempting to peek at YAML : $@";
}
=head1 NAME
-MooseX::Storage::Util - A MooseX::Storage swiss-army chainsaw
+MooseX::Storage::Util - A MooseX::Storage Swiss Army chainsaw
=head1 DESCRIPTION
=back
+=for stopwords TODO
+
=head1 TODO
Add more stuff to this module :)