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=20b4330c04edab9bb8a538932e082b5b26aa7cc0;hpb=14e5132ad4def507c424a56dfb30b935b1ab3b44;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Util.pm b/lib/MooseX/Storage/Util.pm index 20b4330..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.21'; -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] ]]) }; @@ -74,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 @@ -127,6 +124,8 @@ found in the key for you. =back +=for stopwords TODO + =head1 TODO Add more stuff to this module :)