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=7d8aba03905afa4a2c37213125a65fc47ca2471d;hpb=e7ab79ca765efcb3df717030c47c0e01c2cf3f18;p=gitmo%2FMooseX-Storage.git diff --git a/lib/MooseX/Storage/Util.pm b/lib/MooseX/Storage/Util.pm index 7d8aba0..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.34'; -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 :)