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