Changeset 35361 for lang/perl

Timestamp:

09/14/09 03:46:30 (4 years ago)

Author:

ktat

Message:

Checking in changes prior to tagging of version 0.09. Changelog diff is:

=== Changes
==================================================================
--- Changes (revision 39140)
+++ Changes (local)
@@ -1,9 +1,15 @@

Revision history for Util-Any

-0.07 2009/04/12 03:58
+0.09 2009/09/13 03:31
+ Fix bug, prefix doesn't work when using '-kind' style.
+
+0.08 2009/09/11 15:58

support Sub::Exporter

- support some of exporting ways from Sub::Exporter
+ support some of exporting ways of Sub::Exporter

+0.07 2009/04/12 03:58
+ Fix bug when inheriting
+

0.06 2009/03/22 14:55

support Exporter and Exporter::Simple

Location:

lang/perl/Util-Any/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (4 diffs)
• lib/Util/Any.pm (modified) (16 diffs)
• t/01-unit.t (added)
• t/01-util.t (modified) (1 diff)
• t/02-util-func-scalar-prefix-sign.t (added)
• t/13-inherit.t (added)
• t/lib/Inherit.pm (added)
• t/lib/InheritSub.pm (added)
• t/lib/One.pm (added)
• t/lib/Two.pm (added)

lang/perl/Util-Any/trunk/Changes

@@ -1 +1 @@
 Revision history for Util-Any
 
+0.09    2009/09/13 03:31
+        Fix bug, prefix doesn't work when using '-kind' style.
+
+0.08    2009/09/11 15:58
+        support Sub::Exporter
+        support some of exporting ways of Sub::Exporter
+
 0.07    2009/04/12 03:58
-        support Sub::Exporter
-        support some of exporting ways from Sub::Exporter
+        Fix bug when inheriting
 
 0.06    2009/03/22 14:55

lang/perl/Util-Any/trunk/MANIFEST

@@ -9 +9 @@
 t/pod-coverage.t
 t/pod.t
+t/01-unit.t
+t/01-util.t
 t/01-util-kind-list.t
 t/01-util-kind-scalar.t
@@ -22 +24 @@
 t/01-util-kind-my-prefix.t
 t/02-util-func-scalar-prefix.t
+t/02-util-func-scalar-prefix-sign.t
 t/01-util-kind-all-prefix.t
 t/03-debug.t
@@ -48 +51 @@
 t/11-sub-exporter-full-all.t
 t/12-sub-exporter-like-export.t
+t/13-inherit.t
 t/lib/MyUtil.pm
 t/lib/MyUtilBase.pm
@@ -57 +61 @@
 t/lib/UtilSubExporter2.pm
 t/lib/exampleHello.pm
+t/lib/Inherit.pm
+t/lib/InheritSub.pm
+t/lib/One.pm
+t/lib/Two.pm

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

@@ -42 +42 @@
       $prefix = $kind_prefix                             ? $kind_prefix   :
                 ($opt{module_prefix} and $module_prefix) ? $module_prefix :
-                $opt{prefix}                             ? lc($kind) . '_': '';
+                $opt{prefix}                             ? lc(join "",$kind =~m{(\w+)}g) . '_': '';
 
       my $evalerror = '';
@@ -256 +256 @@
 =head1 NAME
 
-Util::Any - Export any utilities and To create your own Util::Any
+Util::Any - to export any utilities and to create your own Utilitie module
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.09';
 
 =head1 SYNOPSIS
@@ -313 +313 @@
 You can create your own module and use this in the same way as Util::Any like the following.
 
- use YourUtil qw/list/;
+ use YourUtil -list;
 
 see C<CREATE YOUR OWN Util::Any>, in detail.
@@ -321 +321 @@
 =head2 use Util::Any (KIND)
 
- use Util::Any qw/list hash/;
+ use Util::Any -list, -hash;
 
 Give list of kinds of modules. All functions in moduls are exporeted.
@@ -327 +327 @@
 =head2  use Util::Any {KIND => [FUNCTIONS], ...};
 
- use Util::Any {list => ['uniq'], hash => ['lock_keys']};
+ use Util::Any {-list => ['uniq'], -hash => ['lock_keys']};
 
 Give hash ref whose key is kind and value is function names.
@@ -342 +342 @@
 add kind prefix to function name.
 
- use Util::Any qw/list/, {prefix => 1};
+ use Util::Any -list, {prefix => 1};
  
  list_uniq(1,2,3,4,5); # it is List::More::Utils's uniq function
@@ -356 +356 @@
 If you pass debug value, warn or die.
 
- use Util::Any qw/list/, {debug => 1}; # warn
- use Util::Any qw/list/, {debug => 2}; # die
+ use Util::Any -list, {debug => 1}; # warn
+ use Util::Any -list, {debug => 2}; # die
 
 =back
@@ -481 +481 @@
  use Util::Any -Base; # or use base qw/Util::Any/;
  our $Utils = clone $Util::Any::Utils;
- push @{$Utils->{list}}, qw/Your::Favorite::List::Utils/;
+ push @{$Utils->{-list}}, qw/Your::Favorite::List::Utils/;
  
  1;
@@ -487 +487 @@
 In your code;
 
- use Util::Yours qw/list/;
+ use Util::Yours -list;
 
 =head2 $Utils STRUCTURE
@@ -495 +495 @@
  $Utils => {
     # simply put module names
-    kind1 => [qw/Module1 Module2 ..../],
-    # Module name and its prefix
-    kind2 => [ [Module1 => 'module_prefix'], ... ],
+    -kind1 => [qw/Module1 Module2 ..../],
+    -# Module name and its prefix
+    -kind2 => [ [Module1 => 'module_prefix'], ... ],
     # limit functions to be exported
-    kind3 => [ [Module1, 'module_prefix', [qw/func1 func2/] ], ... ],
+    -kind3 => [ [Module1, 'module_prefix', [qw/func1 func2/] ], ... ],
     # as same as above except not specify modul prefix
-    kind4 => [ [Module1, '', [qw/func1 func2/] ], ... ],
+    -kind4 => [ [Module1, '', [qw/func1 func2/] ], ... ],
  };
 
@@ -547 +547 @@
 Util::Any auomaticaly export functions from modules' @EXPORT and @EXPORT_OK.
 In some cases, it is not good idea like Data::Dumper's Dumper and DumperX.
+Thease 2 functions are same feature.
 
 So you can limit functions to be exported.
 
  our $Utils = {
-      debug => [
+      -debug => [
                 ['Data::Dumper', '',
                 ['Dumper']], # only Dumper method is exported.
@@ -560 +561 @@
 
  our $Utils = {
-      debug => [
+      -debug => [
                 ['Data::Dumper', '',
                  { -select => ['Dumper'] }, # only Dumper method is exported.
@@ -573 +574 @@
 
  our $Utils = {
-      debug => [
+      -debug => [
                 ['Data::Dumper', '',
                  { -except => ['DumperX'] }, # export functions except DumperX
@@ -588 +589 @@
 
  our $Utils = {
-      list  => [
+      -list  => [
                  [
                   'List::Util', '',
@@ -603 +604 @@
 =head2 EXPORTING LIKE Sub::Exporter
 
-It's experimental featrue. not enough tested. and only support '-prefix' and '-as'.
-
- use UtilSubExporter list => {-prefix => 'list__', min => {-as => "list___min"}},
+This featrue is not enough tested. and only support '-prefix' and '-as'.
+
+ use UtilSubExporter -list => {-prefix => 'list__', min => {-as => "list___min"}},
                      # The following is normal Sub::Exporter importing
-                     -greet => {-prefix => "greet_"},
+                     greet => {-prefix => "greet_"},
                      'askme' => {-as => "ask_me"};
 
@@ -795 +796 @@
 L<Exporter>, L<Exporter::Simple>, L<Sub::Exporter> and L<Perl6::Export::Attrs>.
 
+Now I try to make L<Util::All> module based on Util::Any. see the following URL.
+
+ http://github.com/ktat/Util-All
+
 =head1 ACKNOWLEDGEMENTS
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008 Ktat, all rights reserved.
+Copyright 2008-2009 Ktat, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it

lang/perl/Util-Any/trunk/t/01-util.t

@@ -48 +48 @@
 }
 
+my @isa = @main::ISA;
+Util::Any::_base_import('Util::Any', 'main', '-base');
+is($main::ISA[-1], 'Util::Any', 'isa');
+ok(!defined &main::_use_import_module, 'not defined');
+@main::ISA = @isa;
+
+foreach my $m (['-Exporter'        , 'Exporter'            ],
+               ['-ExporterSimple'  , 'Exporter::Simple'    ],
+               ['-SubExporter'     , 'Sub::Exporter'       ],
+               ['-Perl6ExportAttrs', 'Perl6::Export::Attrs'],
+              ) {
+  Util::Any::_base_import('Util::Any', 'main', $m->[0]);
+  my $file = $m->[1] . '.pm';
+  $file =~s{::}{/}g;
+  ok(exists $main::INC{$file}, $file);
+  is(&main::_use_import_module(), $m->[1], $m->[1]);
+  undef &main::_use_import_module;
+  @main::ISA = @isa;
+}
+
+eval {
+  Util::Any::_base_import('Util::Any', 'main', "Hoge");
+};
+
+ok($@ =~ /cannot understand/, 'unknown option');