/usr/share/perl5/Set/Scalar/Null.pm is in libset-scalar-perl 1.27-1.
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::Null;
use strict;
local $^W = 1;
use vars qw(@ISA);
@ISA = qw(Set::Scalar::Base Set::Scalar::Virtual);
use Set::Scalar::Virtual;
use Set::Scalar::Base;
use overload
'neg' => \&_complement_overload;
sub SET_FORMAT { "(%s)" }
sub _new_hook {
my $self = shift;
my $universe = $_[0]->[0];
$self->universe( $universe );
}
sub universe {
my $self = shift;
$self->{'universe'} = shift if @_;
return $self->{'universe'};
}
sub elements {
return ();
}
sub size {
return 0;
}
sub _complement_overload {
my $self = shift;
return Set::Scalar->new( $self->universe->elements );
}
=pod
=head1 NAME
Set::Scalar::Null - internal class for Set::Scalar
=head1 SYNOPSIS
B<Internal use only>.
=head1 DESCRIPTION
B<This is not the module you are looking for.>
If you want documentation see L<Set::Scalar>.
=head1 AUTHOR
Jarkko Hietaniemi <jhi@iki.fi>
=cut
1;
|