Changeset 36328 for lang/perl

Timestamp:

01/01/10 06:24:41 (3 years ago)

Author:

ktat

Message:

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

=== Changes
==================================================================
--- Changes (revision 40760)
+++ Changes (local)
@@ -1,11 +1,15 @@

Revision history for Util-Any

+0.18 2010/01/01 06:17:05
+ remove List::MoreUtils? from Util::Any itself(they are left in definition).
+ Fix bug: didn't understand argument order, collectory in some case.
+

0.17 2009/10/06 03:32

add -args option to give common arguments to all functions in same kind.

enable to work -all with kind setting. for example

-all, -list => {...}

- fix typo: inherit Perl6::Exprot::Attr and ':ALL' keyword didn't work correctly.
- fix typo: inherit Exproer and ':all' keyword didn't work correctly.
+ fix typo: inherit Perl6::Export::Attr and ':ALL' keyword didn't work correctly.
+ fix typo: inherit Exporter and ':all' keyword didn't work correctly.

Thanks to Richard Jelinek, again.

0.16 2009/09/30 03:16

Location:

lang/perl/Util-Any/trunk

Files:

• Changes (modified) (2 diffs)
• lib/Util/Any.pm (modified) (11 diffs)
• t/01-util.t (modified) (1 diff)

lang/perl/Util-Any/trunk/Changes

@@ -1 +1 @@
 Revision history for Util-Any
+
+0.18    2010/01/01 06:17:05
+        remove List::MoreUtils from Util::Any itself(they are left in definition).
+        Fix bug: didn't understand argument order, collectory in some case.
 
 0.17    2009/10/06 03:32
@@ -5 +9 @@
         enable to work -all with kind setting. for example
                -all, -list => {...}
-        fix typo: inherit Perl6::Exprot::Attr and ':ALL' keyword didn't work correctly.
-        fix typo: inherit Exproer and ':all' keyword didn't work correctly.
+        fix typo: inherit Perl6::Export::Attr and ':ALL' keyword didn't work correctly.
+        fix typo: inherit Exporter and ':all' keyword didn't work correctly.
         Thanks to  Richard Jelinek, again.
 

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

@@ -4 +4 @@
 use Clone ();
 use Carp ();
-use List::MoreUtils ();
-use Module::Pluggable ();
 use warnings;
 use strict;
@@ -21 +19 @@
 
 our $SubExporterImport = 'do_import';
+
+# borrow from List::MoreUtils
+sub _any (&@) {
+    my $f = shift;
+    return if ! @_;
+    for (@_) {
+        return 1 if $f->();
+    }
+    return 0;
+}
+
+sub _uniq (@) {
+    my %h;
+    map { $h{$_}++ == 0 ? $_ : () } @_;
+}
+# /end
 
 sub import {
@@ -167 +181 @@
     }
   } else {
-    ExportTo::export_to($caller => [map $class . '::' . $_, List::MoreUtils::uniq @export_funcs]);
+    ExportTo::export_to($caller => [map $class . '::' . $_, _uniq @export_funcs]);
   }
 }
@@ -207 +221 @@
   my $all_improt = 0;
   if (@$org_args) {
-    @$org_args = %{$org_args->[0]} if ref $org_args->[0] eq 'HASH';
+    @$org_args = %{$org_args->[0]} if ref $org_args->[0] and (ref $org_args->[0]) eq 'HASH';
+    $opt->{'plugin'} ||= '';
     if (lc($org_args->[0]) =~ /^([:-])?all/) {
       my $all_import = shift @$org_args;
@@ -228 +243 @@
       $pkg->_lazy_load_plugins($config, $org_args);
     }
-    if (List::MoreUtils::any {ref $_} @$org_args) {
+    if (_any {ref $_} @$org_args) {
       for (my $i = 0; $i < @$org_args; $i++) {
         my $kind = $org_args->[$i];
-        my $import_setting = $org_args->[$i + 1] ? $org_args->[++$i] : undef;
+        my $import_setting = ref $org_args->[$i + 1] ? $org_args->[++$i] : undef;
         _insert_want_arg($config, $kind, $import_setting, \%want_kind, \@arg);
       }
@@ -335 +350 @@
       }
     }
-    @wanted_funcs = List::MoreUtils::uniq @wanted_funcs;
+    @wanted_funcs = _uniq @wanted_funcs;
   }
   return \@wanted_funcs, \%local_definition, $kind_prefix || '', $kind_args || {};
@@ -392 +407 @@
     } elsif ($flg eq '-pluggable') {
       # pluggable
+      require Module::Pluggable;
       Module::Pluggable->import(require => 0, search_path => [$caller . '::Plugin'], inner => 0);
       my @plugins = $pkg->plugins;
@@ -410 +426 @@
 =cut
 
-our $VERSION = '0.17';
+our $VERSION = '0.18';
 
 =head1 SYNOPSIS
@@ -559 +575 @@
  use Util::Yours -net_all; # Plugin::Net and Plugin::Net::* is loaded
 
-C<_all> is special keyword. see "NOTE ABOUT all KEYWORD".
+C<_all> is special keyword. see L<"NOTE ABOUT all KEYWORD">.
 
 =item debug => 1/2
@@ -747 +763 @@
 B<all> is special keyword, so it has some restriction.
 
-=head2 use module with 'all' cannot take any sequential arugments
+=head2 use module with 'all' cannot take its arugments
 
  use Util::Any -all; # or 'all', ':all'
 
-This cannot take sequential arguments. For example;
+This cannot take sequential arguments for "all". For example;
 
  NG: use Util::Any -all => ['shuffle'];
 
-=head2 -plugin_module_all cannot take any sequential arguments
+When sequential arguments is kind's, it's ok.
+
+ use Util::Any -all, -list => ['unique'];
+
+=head2 -plugin_module_all cannot take its arguments
 
  use Util::Yours -plugin_name_all;
 
-This cannot take sequential arguments. For example:
+This cannot take sequential arguments for it. For example:
 
  NG: use Util::Yours -plugin_name_all => ['some_function'];
@@ -1245 +1265 @@
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008-2009 Ktat, all rights reserved.
+Copyright 2008-2010 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

@@ -37 +37 @@
               [ [ scalar => {-prefix => 'sc_'}], {} ],
               [ [], {scalar => {-prefix => 'sc_'}} ],
+             ],
+             [
+              [ ['string', list => ['any', 'uniq']], {} ],
+              [ [], {string => undef, list => ['any', 'uniq']} ],
              ],
             );