File Coverage

blib/lib/Set/Scalar/ValuedUniverse.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 3 0.0
total 22 27 81.4


line stmt bran cond sub pod time code
1             package Set::Scalar::ValuedUniverse;
2              
3 1     1   4 use strict;
  1         2  
  1         42  
4             local $^W = 1;
5              
6 1     1   5 use vars qw($VERSION @ISA);
  1         1  
  1         58  
7              
8             $VERSION = '1.29';
9             @ISA = qw(Set::Scalar::Virtual Set::Scalar::Base);
10              
11 1     1   522 use Set::Scalar::Virtual;
  1         17  
  1         40  
12 1     1   517 use Set::Scalar::Null;
  1         3  
  1         125  
13              
14             my $UNIVERSE = __PACKAGE__->new;
15              
16 0     0 0 0 sub SET_FORMAT { "[%s]" }
17              
18             sub universe {
19 4     4 0 5 my $self = shift;
20              
21 4         131 return $UNIVERSE;
22             }
23              
24             sub null {
25 5     5 0 5 my $self = shift;
26 5         21 return Set::Scalar::Null->new( $self );
27             }
28              
29             =pod
30              
31             =head1 NAME
32              
33             Set::Scalar::ValuedUniverse - universes for valued set members
34              
35             =head1 SYNOPSIS
36              
37             B
38              
39             =head1 DESCRIPTION
40              
41             There are only two guaranteed interfaces, both sort of indirect.
42              
43             The first one is accessing the universe of a valued set:
44              
45             $valued_set->universe
46              
47             This contains the members of the universe
48              
49             $valued_set->universe->members
50              
51             of the C<$valued_set>.
52              
53             The second supported interface is displaying universes of valued sets.
54              
55             print $valued_set->universe, "\n";
56              
57             This will display the members of the valued set inside square brackets: [],
58             as opposed to valued sets, which have their members shown inside
59             parentheses: ().
60              
61             =head1 AUTHOR
62              
63             Jarkko Hietaniemi
64              
65             =cut
66              
67             1;