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=c081a0a4dc2ec9526697822d8d063f765ae240b0;hpb=0e45b8f5e37e8e838885686cce55b957e1fce336;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Util.pm b/lib/MooseX/Storage/Util.pm index c081a0a..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.23'; -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 :)