Changeset 37140

Show
Ignore:
Timestamp:
04/03/10 01:51:42 (4 years ago)
Author:
ktat
Message:

Checking in changes prior to tagging of version 0.19.

Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 37139)
+++ Changes (作業コピー)
@@ -1,5 +1,9 @@

Revision history for Util-Any


+0.19 2010/04/03 02:00:00
+ add List::Pairwise to list.
+ add -data which is as same as -scalar
+

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.

Location:
lang/perl/Util-Any/trunk
Files:
1 added
6 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Util-Any/trunk/.shipit

    r25765 r37140  
    11steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN, Twitter 
    22 
    3 svk.tagpattern = Util-Any-%v 
    4 # svn.tagpattern = http://svn.coderepos.org/share/lang/perl/Util-Any/tags/Util-Any-%v 
     3svn.tagpattern = Util-Any-%v 
    54 
    65twitter.config = ~/.twitterrc 
  • lang/perl/Util-Any/trunk/Changes

    r36328 r37140  
    11Revision history for Util-Any 
     2 
     30.19    2010/04/03 02:00:00 
     4        add List::Pairwise to list. 
     5        add -data which is as same as -scalar 
    26 
    370.18    2010/01/01 06:17:05 
  • lang/perl/Util-Any/trunk/MANIFEST

    r35510 r37140  
    1515t/01-util-kind-list.t 
    1616t/01-util-kind-scalar.t 
     17t/01-util-kind-data.t 
    1718t/01-util-kind-hash.t 
    1819t/01-util-kind-debug.t 
  • lang/perl/Util-Any/trunk/Makefile.PL

    r35474 r37140  
    1515        'List::Util'        => 0, 
    1616        'List::MoreUtils'   => 0, 
     17        'List::Pairwise'    => 0, 
    1718        'Hash::Util'        => 0, 
    1819        'Scalar::Util'      => 0, 
  • lang/perl/Util-Any/trunk/lib/Util/Any.pm

    r36328 r37140  
    88 
    99our $Utils = { 
    10               list   => [ qw/List::Util List::MoreUtils/ ], 
    11               scalar => [ qw/Scalar::Util/ ], 
     10              list   => [ qw/List::Util List::MoreUtils List::Pairwise/ ], 
     11              data  => [ qw/Scalar::Util/ ], 
    1212              hash   => [ qw/Hash::Util/ ], 
    1313              debug  => [ ['Data::Dumper', '', ['Dumper']] ], 
     
    1515             }; 
    1616 
     17$Utils->{'scalar'} = $Utils->{data}; 
    1718# I'll delete no dash group in the above, in future. 
    1819$Utils->{'-' . $_} = $Utils->{$_} foreach keys %$Utils; 
     
    426427=cut 
    427428 
    428 our $VERSION = '0.18'; 
     429our $VERSION = '0.19'; 
    429430 
    430431=head1 SYNOPSIS 
     
    593594So, it must be diffrent on your environment. 
    594595 
    595 =head2 scalar 
     596=head2 -data 
     597 
     598NOTE THAT: its old name is 'scalar' (you can use the name, yet). 
    596599 
    597600from Scalar::Util (1.19) 
     
    610613 weaken 
    611614 
    612 =head2 hash 
     615=head2 -hash 
    613616 
    614617from Hash::Util (0.05) 
     
    622625 unlock_value 
    623626 
    624 =head2 list 
     627=head2 -list 
    625628 
    626629from List::Util (1.19) 
     
    669672 zip 
    670673 
    671 =head2 string 
     674from List::Pairwise (0.29) 
     675 
     676 mapp 
     677 grepp 
     678 firstp 
     679 lastp 
     680 map_pairwise 
     681 grep_pairwise 
     682 first_pairwise 
     683 last_pairwise 
     684 pair 
     685 
     686=head2 -string 
    672687 
    673688from String::Util (0.11) 
     
    692707 wordsplit 
    693708 
    694 =head2 debug 
     709=head2 -debug 
    695710 
    696711from Data::Dumper (2.121) 
  • lang/perl/Util-Any/trunk/t/01-util-kind-list.t

    r25939 r37140  
    11use Test::More qw/no_plan/; 
    22 
    3 use Util::Any qw/List/; 
     3use Util::Any -list; 
    44no strict 'refs'; 
    55 
    66foreach (@List::Util::EXPORT_OK) { 
     7  ok(defined &{$_} , $_); 
     8} 
     9foreach (@List::Pairwise::EXPORT_OK) { 
    710  ok(defined &{$_} , $_); 
    811}