X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FUtil.pm;h=c652f2e16d893dff785e8fa8237f9fa3dc2f322c;hb=1f2883b2c4c74ee69739b6e5d272ab190c11f039;hp=02a9a5f0dd1874879a3b355e0a4ecc5e2b983441;hpb=ec72518379c644ab85126ee0391773ee7028665c;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Util.pm b/lib/MooseX/Storage/Util.pm index 02a9a5f..c652f2e 100644 --- a/lib/MooseX/Storage/Util.pm +++ b/lib/MooseX/Storage/Util.pm @@ -4,9 +4,6 @@ use Moose qw(confess blessed); use MooseX::Storage::Engine (); use utf8 (); -our $VERSION = '0.18'; -our $AUTHORITY = 'cpan:STEVAN'; - sub peek { my ($class, $data, %options) = @_; @@ -30,7 +27,7 @@ sub peek { } sub _inflate_json { - my ($class, $json) = @_; + my ($self, $json) = @_; eval { require JSON::Any; JSON::Any->import }; confess "Could not load JSON module because : $@" if $@; @@ -46,7 +43,7 @@ sub _inflate_json { } sub _inflate_yaml { - my ($class, $yaml) = @_; + my ($self, $yaml) = @_; require Best; eval { Best->import([[ qw[YAML::Syck YAML] ]]) }; @@ -64,6 +61,8 @@ sub _inflate_yaml { return $data; } +no Moose::Role; + 1; __END__ @@ -72,7 +71,7 @@ __END__ =head1 NAME -MooseX::Storage::Util - A MooseX::Storage swiss-army chainsaw +MooseX::Storage::Util - A MooseX::Storage Swiss Army chainsaw =head1 DESCRIPTION @@ -125,6 +124,8 @@ found in the key for you. =back +=for stopwords TODO + =head1 TODO Add more stuff to this module :)