import Set-Scalar 1.11 from CPAN

git-cpan-module:   Set-Scalar
git-cpan-version:  1.11
git-cpan-authorid: JHI
git-cpan-file:     authors/id/J/JH/JHI/Set-Scalar-1.11.tar.gz

Author: jhi

ChangeLog

@@ -1,3 +1,11 @@
+Wed Oct 10 17:31:12 2001  Jarkko Hietaniemi  <jhi@alpha.hut.fi>
+
+	* In boolean contexts the string representation of sets
+	  is not the best possible one, reported by Dan Berger.
+	  Now the size of the set is returned in boolean contexts.
+	  
+	* Released as 1.11.
+	  
 Fri Aug  3 15:42:38 2001  Jarkko Hietaniemi  <jhi@alpha.hut.fi>
 
 	* 1.10: Added COPYRIGHT and LICENSE.

MANIFEST

@@ -12,6 +12,7 @@ lib/Set/Scalar/Virtual.pm
 README
 t/basic.t
 t/basic_overload.t
+t/boolean.t
 t/compare.t
 t/difference.t
 t/intersection.t

lib/Set/Scalar.pm

@@ -5,7 +5,7 @@ local $^W = 1;
 
 use vars qw($VERSION @ISA);
 
-$VERSION = '1.10';
+$VERSION = '1.11';
 
 @ISA = qw(Set::Scalar::Real Set::Scalar::Null Set::Scalar::Base);
 
@@ -168,6 +168,13 @@ These methods have operator overloads:
 
     $cmp = $s <=> $t;
 
+In Boolean contexts such as
+
+    if ($set) { ... }
+
+the size of the C<$set> is tested, so empty sets test as false,
+and non-empty sets as true.
+
 =head1 AUTHOR
 
 Jarkko Hietaniemi <jhi@iki.fi>

lib/Set/Scalar/Base.pm

@@ -32,7 +32,8 @@ use overload
     '<'		=> \&is_proper_subset,
     '>'		=> \&is_proper_superset,
     '<='	=> \&is_subset,
-    '>='	=> \&is_superset;
+    '>='	=> \&is_superset,
+    'bool'	=> \&size;
 
 use constant OVERLOAD_BINARY_2ND_ARG  => 1;
 use constant OVERLOAD_BINARY_REVERSED => 2;

t/boolean.t

@@ -0,0 +1,16 @@
+use Set::Scalar;
+
+print "1..2\n";
+
+my @a = qw(One Two Three);     
+my @b = qw(Four Five Six);
+ 
+my $ssa = Set::Scalar->new(@a);
+my $ssb = Set::Scalar->new(@b);
+ 
+print "not " unless $ssa;
+print "ok 1\n";
+
+print "not " if $ssa->intersection($ssb);
+print "ok 2\n";
+