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