From 23239848b24341056c2ed796ba9bd402ebd82d6e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 18 Apr 2009 15:47:40 +0200
Subject: simplified use-list

---
 lib/Tree/Template/Declare.pm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'lib')

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;
-- 
cgit v1.2.3