Changeset 37140

Timestamp:

04/03/10 01:51:42 (3 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:

• .shipit (modified) (1 diff)
• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Util/Any.pm (modified) (8 diffs)
• t/01-util-kind-data.t (added)
• t/01-util-kind-list.t (modified) (1 diff)

lang/perl/Util-Any/trunk/.shipit

@@ -1 +1 @@
 steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN, Twitter
 
-svk.tagpattern = Util-Any-%v
-# svn.tagpattern = http://svn.coderepos.org/share/lang/perl/Util-Any/tags/Util-Any-%v
+svn.tagpattern = Util-Any-%v
 
 twitter.config = ~/.twitterrc

lang/perl/Util-Any/trunk/Changes

@@ -1 +1 @@
 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

lang/perl/Util-Any/trunk/MANIFEST

@@ -15 +15 @@
 t/01-util-kind-list.t
 t/01-util-kind-scalar.t
+t/01-util-kind-data.t
 t/01-util-kind-hash.t
 t/01-util-kind-debug.t

lang/perl/Util-Any/trunk/Makefile.PL

@@ -15 +15 @@
         'List::Util'        => 0,
         'List::MoreUtils'   => 0,
+        'List::Pairwise'    => 0,
         'Hash::Util'        => 0,
         'Scalar::Util'      => 0,

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

@@ -8 +8 @@
 
 our $Utils = {
-              list   => [ qw/List::Util List::MoreUtils/ ],
-              scalar => [ qw/Scalar::Util/ ],
+              list   => [ qw/List::Util List::MoreUtils List::Pairwise/ ],
+              data   => [ qw/Scalar::Util/ ],
               hash   => [ qw/Hash::Util/ ],
               debug  => [ ['Data::Dumper', '', ['Dumper']] ],
@@ -15 +15 @@
              };
 
+$Utils->{'scalar'} = $Utils->{data};
 # I'll delete no dash group in the above, in future.
 $Utils->{'-' . $_} = $Utils->{$_} foreach keys %$Utils;
@@ -426 +427 @@
 =cut
 
-our $VERSION = '0.18';
+our $VERSION = '0.19';
 
 =head1 SYNOPSIS
@@ -593 +594 @@
 So, it must be diffrent on your environment.
 
-=head2 scalar
+=head2 -data
+
+NOTE THAT: its old name is 'scalar' (you can use the name, yet).
 
 from Scalar::Util (1.19)
@@ -610 +613 @@
  weaken
 
-=head2 hash
+=head2 -hash
 
 from Hash::Util (0.05)
@@ -622 +625 @@
  unlock_value
 
-=head2 list
+=head2 -list
 
 from List::Util (1.19)
@@ -669 +672 @@
  zip
 
-=head2 string
+from List::Pairwise (0.29)
+
+ mapp
+ grepp
+ firstp
+ lastp
+ map_pairwise
+ grep_pairwise
+ first_pairwise
+ last_pairwise
+ pair
+
+=head2 -string
 
 from String::Util (0.11)
@@ -692 +707 @@
  wordsplit
 
-=head2 debug
+=head2 -debug
 
 from Data::Dumper (2.121)

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

@@ -1 +1 @@
 use Test::More qw/no_plan/;
 
-use Util::Any qw/List/;
+use Util::Any -list;
 no strict 'refs';
 
 foreach (@List::Util::EXPORT_OK) {
+  ok(defined &{$_} , $_);
+}
+foreach (@List::Pairwise::EXPORT_OK) {
   ok(defined &{$_} , $_);
 }