diff options
| author | dakkar <dakkar@thenautilus.net> | 2009-04-18 15:47:40 +0200 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2009-04-18 15:47:40 +0200 |
| commit | 23239848b24341056c2ed796ba9bd402ebd82d6e (patch) | |
| tree | 22436634addd79127e878e1d1da33d84c06b6906 /lib/Tree/Template | |
| parent | remove no_plan (diff) | |
| download | Tree-Template-Declare-23239848b24341056c2ed796ba9bd402ebd82d6e.tar.gz Tree-Template-Declare-23239848b24341056c2ed796ba9bd402ebd82d6e.tar.bz2 Tree-Template-Declare-23239848b24341056c2ed796ba9bd402ebd82d6e.zip | |
simplified use-list
Diffstat (limited to 'lib/Tree/Template')
| -rw-r--r-- | lib/Tree/Template/Declare.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lib/Tree/Template/Declare.pm b/lib/Tree/Template/Declare.pm index a2be8e2..185d9eb 100644 --- a/lib/Tree/Template/Declare.pm +++ b/lib/Tree/Template/Declare.pm @@ -8,26 +8,27 @@ use Data::Dumper; our $VERSION='0.1'; -Sub::Exporter::setup_exporter({ +{ +my $exporter=Sub::Exporter::build_exporter({ groups => { default => \&_build_group, }, - collectors => [ INIT => \&_init_args, 'options' ], }); -sub _init_args { - my (undef,$args)=@_; +sub import { + my ($pack,@rest)=@_; - @{$args->{import_args}}=( [ -default => undef] ) - unless @{$args->{import_args}}; - - return 1; + if (@rest) { + @_=($pack,-default => {@rest}); + } + goto $exporter; +} } sub _build_group { my ($class,$name,$args,$coll)=@_; - my $builder=$args->{builder} || $coll->{options}{builder}; + my $builder=$args->{builder}; if (!ref($builder)) { my $builder_pkg=$builder; |