Changeset 32282 for lang/perl/Util-Any/trunk/t/lib/UtilExporter.pm

Timestamp:

04/12/09 04:10:41 (4 years ago)

Author:

ktat

Message:

support Sub::Exporter
support some of exporting ways from Sub::Exporter.
refactor code.

Files:

• lang/perl/Util-Any/trunk/t/lib/UtilExporter.pm (modified) (2 diffs)

lang/perl/Util-Any/trunk/t/lib/UtilExporter.pm

@@ -9 +9 @@
 our @EXPORT_OK = qw/askme hello hi/;
 our %EXPORT_TAGS = (
-                    'greet' => [qw/hello hi/],
-                    'uk'    => [qw/hello/],
-                    'us'    => [qw/hi/],
-                   );
+                    'greet' => [qw/hello hi/],
+                    'uk'    => [qw/hello/],
+                    'us'    => [qw/hi/],
+                    'hello' => [qw/hello_name hello_where/],
+                   );
 
 our $Utils = clone $Util::Any::Utils;
@@ -18 +19 @@
                  ['List::Util', '', [qw(first min minstr max maxstr sum)]],
                 ];
+$Utils->{-hello} = ['exampleHello'];
 
 sub hello { "hello there" }