r30107 - in /trunk/libset-scalar-perl: ChangeLog META.yml Makefile.PL debian/changelog lib/Set/Scalar.pm lib/Set/Scalar/Base.pm t/basic.t

bricas-guest at users.alioth.debian.org bricas-guest at users.alioth.debian.org
Sun Jan 25 15:55:22 UTC 2009


Author: bricas-guest
Date: Sun Jan 25 15:55:19 2009
New Revision: 30107

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30107
Log:
New upstream release

Modified:
    trunk/libset-scalar-perl/ChangeLog
    trunk/libset-scalar-perl/META.yml
    trunk/libset-scalar-perl/Makefile.PL
    trunk/libset-scalar-perl/debian/changelog
    trunk/libset-scalar-perl/lib/Set/Scalar.pm
    trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm
    trunk/libset-scalar-perl/t/basic.t

Modified: trunk/libset-scalar-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/ChangeLog?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/ChangeLog (original)
+++ trunk/libset-scalar-perl/ChangeLog Sun Jan 25 15:55:19 2009
@@ -1,3 +1,19 @@
+2009-01-16  Jarkko Hietaniemi  <jhi at iki.fi>
+
+	* Add overload for '@{}' as suggested by John Loverso,
+	  meaning that you can now do @$set and get the members
+	  of the set (unordered, mind) [rt.cpan.org #42452]
+
+	* Add overload for '=' (how did we manage so long without?)
+	  [rt.cpan.org #42449]
+	
+	* Remove explicit import of UNIVERSAL::isa()
+	  [rt.cpan.org #42451]
+	
+	* Modernize META.yml.
+	
+	* Released as 1.23.
+
 2007-10-23  Jarkko Hietaniemi  <jhi at iki.fi>
 
 	* Add cartesian_product() and power_set(), both as full

Modified: trunk/libset-scalar-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/META.yml?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/META.yml (original)
+++ trunk/libset-scalar-perl/META.yml Sun Jan 25 15:55:19 2009
@@ -1,10 +1,19 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Set-Scalar
-version:      1.22
-version_from: lib/Set/Scalar.pm
-installdirs:  site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+--- #YAML:1.0
+name:               Set-Scalar
+version:            1.23
+abstract:           ~
+author:
+    - Jarkko Hietaniemi <jhi at iki.fi>
+license:            perl
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.48
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libset-scalar-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/Makefile.PL?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/Makefile.PL (original)
+++ trunk/libset-scalar-perl/Makefile.PL Sun Jan 25 15:55:19 2009
@@ -13,6 +13,9 @@
 	       # 'Scalar::Util'	=> 0, # Not a requirement anymore.
 	       # 'Test::More'	=> 0,
 	      },
+              AUTHOR => 'Jarkko Hietaniemi <jhi at iki.fi>',
+              ($ExtUtils::MakeMaker::VERSION >= 6.3002 ?
+	       ('LICENSE'=> 'perl', ) : ()),
 	      )
 and
 print <<__EOF__;

Modified: trunk/libset-scalar-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/debian/changelog?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/debian/changelog (original)
+++ trunk/libset-scalar-perl/debian/changelog Sun Jan 25 15:55:19 2009
@@ -1,10 +1,14 @@
-libset-scalar-perl (1.22-2) UNRELEASED; urgency=low
+libset-scalar-perl (1.23-1) UNRELEASED; urgency=low
 
+  [ Brian Cassidy ]
+  * New upstream release
+
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
   * debian/control: Added: ${misc:Depends} to Depends: field.
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:46:51 +0100
+ -- Brian Cassidy <brian.cassidy at gmail.com>  Sun, 25 Jan 2009 11:54:28 -0400
 
 libset-scalar-perl (1.22-1) unstable; urgency=low
 

Modified: trunk/libset-scalar-perl/lib/Set/Scalar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/lib/Set/Scalar.pm?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar.pm Sun Jan 25 15:55:19 2009
@@ -5,7 +5,7 @@
 
 use vars qw($VERSION @ISA);
 
-$VERSION = '1.22';
+$VERSION = '1.23';
 
 @ISA = qw(Set::Scalar::Real Set::Scalar::Null Set::Scalar::Base);
 
@@ -87,8 +87,12 @@
 
 =head2 Querying
 
+Assuming a set C<$s>:
+
     @members  = $s->members;
     @elements = $s->elements;  # Alias for members.
+
+    @$s  # Overloaded alias for members.
 
     $size = $s->size;  # The number of members.
 

Modified: trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm (original)
+++ trunk/libset-scalar-perl/lib/Set/Scalar/Base.pm Sun Jan 25 15:55:19 2009
@@ -8,8 +8,6 @@
 use vars qw(@ISA @EXPORT_OK);
 
 @ISA = qw(Exporter);
-
-use UNIVERSAL 'isa';
 
 BEGIN {
     eval 'require Scalar::Util';
@@ -63,7 +61,10 @@
     '>'		=> \&is_proper_superset,
     '<='	=> \&is_subset,
     '>='	=> \&is_superset,
-    'bool'	=> \&size;
+    'bool'	=> \&size,
+    '@{}'	=> sub { [ $_[0]->members ] },
+    '='         => sub { $_[0]->new($_[0]->members) },
+    'cmp'       => sub { "$_[0]" cmp "$_[1]" };
 
 use constant OVERLOAD_BINARY_2ND_ARG  => 1;
 use constant OVERLOAD_BINARY_REVERSED => 2;

Modified: trunk/libset-scalar-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-scalar-perl/t/basic.t?rev=30107&op=diff
==============================================================================
--- trunk/libset-scalar-perl/t/basic.t (original)
+++ trunk/libset-scalar-perl/t/basic.t Sun Jan 25 15:55:19 2009
@@ -2,7 +2,7 @@
 
 use strict;
 
-print "1..42\n";
+print "1..49\n";
 
 my $s = Set::Scalar->new;
 
@@ -150,4 +150,35 @@
 print "not " unless $@ =~ /\Q::fill(): need no arguments/;
 print "ok 42\n";
 
+$s->insert("a".."e");
+
+print "not " unless "@{ [ sort $s->members ] }" eq "a b c d e";
+print "ok 43\n";
+
+print "not " unless "@{ [ sort @$s ] }" eq "a b c d e";
+print "ok 44\n";
+
+my $t = Set::Scalar->new(@$s);
+
+print "not " unless "@{ [ sort @$t ] }" eq "a b c d e";
+print "ok 45\n";
+
+$t += "f";
+
+print "not " unless "@{ [ sort @$t ] }" eq "a b c d e f";
+print "ok 46\n";
+
+my $u = $t;
+
+print "not " unless "@{ [ sort @$u ] }" eq "a b c d e f";
+print "ok 47\n";
+
+$t += "g";
+
+print "not " unless "@{ [ sort @$t ] }" eq "a b c d e f g";
+print "ok 48\n";
+
+print "not " unless "@{ [ sort @$u ] }" eq "a b c d e f";
+print "ok 49\n";
+
 # End Of File.




More information about the Pkg-perl-cvs-commits mailing list