X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FUtil.pm;h=91ad692bc38ca61b1bda4b45c61b34c8da2c08ab;hb=d92b2381821e049808c6b9ddc9c09553e2a78290;hp=8365c51ec2295ab027e5eb251b06e8ae980c0b6f;hpb=81a523ba27fe312e8d52f275283a892542f79f68;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Util.pm b/lib/MooseX/Storage/Util.pm index 8365c51..91ad692 100644 --- a/lib/MooseX/Storage/Util.pm +++ b/lib/MooseX/Storage/Util.pm @@ -2,10 +2,6 @@ package MooseX::Storage::Util; use Moose qw(confess blessed); use MooseX::Storage::Engine (); -use utf8 (); - -our $VERSION = '0.33'; -our $AUTHORITY = 'cpan:STEVAN'; sub peek { my ($class, $data, %options) = @_; @@ -30,7 +26,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 +42,7 @@ sub _inflate_json { } sub _inflate_yaml { - my ($class, $yaml) = @_; + my ($self, $yaml) = @_; require Best; eval { Best->import([[ qw[YAML::Syck YAML] ]]) }; @@ -74,7 +70,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 +123,8 @@ found in the key for you. =back +=for stopwords TODO + =head1 TODO Add more stuff to this module :)