Permalink
Browse files

use namespace::clean

  • Loading branch information...
1 parent 3d3a871 commit ef91cec335120a3e30a0e21146a124fef269e89a @nothingmuch committed Jul 31, 2008
Showing with 11 additions and 3 deletions.
  1. +1 −0 Makefile.PL
  2. +1 −0 lib/Data/Thunk.pm
  3. +4 −1 lib/Data/Thunk/Code.pm
  4. +5 −2 lib/Data/Thunk/Object.pm
View
@@ -14,6 +14,7 @@ WriteMakefile(
'Test::use::ok' => 0,
'Data::Swap' => "0.07",
'UNIVERSAL::ref' => 0,
+ 'namespace::clean' => "0.08",
},
);
View
@@ -12,6 +12,7 @@ use Data::Thunk::Object;
use Scalar::Util qw(blessed);
use base qw(Exporter);
+use namespace::clean;
our $VERSION = "0.05";
View
@@ -7,9 +7,12 @@ use strict;
use warnings;
use Data::Swap ();
-use UNIVERSAL::ref;
use Scalar::Util ();
+use namespace::clean;
+
+use UNIVERSAL::ref;
+
BEGIN {
our $vivify_code = sub {
bless $_[0], "Data::Thunk::NoOverload";
View
@@ -6,13 +6,16 @@ use base qw(Data::Thunk::Code);
use strict;
use warnings;
+use Scalar::Util qw(blessed reftype);
+
+use namespace::clean;
+
use UNIVERSAL::ref;
-use Scalar::Util ();
our $get_field = sub {
my ( $obj, $field ) = @_;
- my $thunk_class = Scalar::Util::blessed($obj) or return;
+ my $thunk_class = blessed($obj) or return;
bless $obj, "Data::Thunk::NoOverload";
my $exists = exists $obj->{$field};

0 comments on commit ef91cec

Please sign in to comment.