Show
Ignore:
Timestamp:
04/12/09 04:10:41 (5 years ago)
Author:
ktat
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Util-Any/trunk/t/lib/UtilExporter.pm

    r31439 r32282  
    99our @EXPORT_OK = qw/askme hello hi/; 
    1010our %EXPORT_TAGS = ( 
    11                     'greet' => [qw/hello hi/], 
    12                     'uk'    => [qw/hello/], 
    13                     'us'    => [qw/hi/], 
    14                    ); 
     11                    'greet' => [qw/hello hi/], 
     12                    'uk'    => [qw/hello/], 
     13                    'us'    => [qw/hi/], 
     14                    'hello' => [qw/hello_name hello_where/], 
     15                   ); 
    1516 
    1617our $Utils = clone $Util::Any::Utils; 
     
    1819                 ['List::Util', '', [qw(first min minstr max maxstr sum)]], 
    1920                ]; 
     21$Utils->{-hello} = ['exampleHello']; 
    2022 
    2123sub hello { "hello there" }