Permalink
Browse files

use Sub::Exporter

  • Loading branch information...
nothingmuch committed Jul 31, 2008
1 parent ef91cec commit d92d53e9877606161a5dcf8af66fa85b3147b249
Showing with 7 additions and 2 deletions.
  1. +1 −0 Makefile.PL
  2. +6 −2 lib/Data/Thunk.pm
View
@@ -15,6 +15,7 @@ WriteMakefile(
'Data::Swap' => "0.07",
'UNIVERSAL::ref' => 0,
'namespace::clean' => "0.08",
+ 'Sub::Exporter' => 0,
},
);
View
@@ -11,12 +11,16 @@ use Data::Thunk::Object;
use Scalar::Util qw(blessed);
-use base qw(Exporter);
use namespace::clean;
our $VERSION = "0.05";
-our @EXPORT = our @EXPORT_OK = qw(lazy lazy_new lazy_object force);
+use Sub::Exporter -setup => {
+ exports => [qw(lazy lazy_new lazy_object force)],
+ groups => {
+ default => [':all'],
+ },
+};
sub lazy (&) {
my $thunk = shift;

0 comments on commit d92d53e

Please sign in to comment.