/usr/share/perl5/Set/Scalar/Virtual.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 68 69 70 71 72 73 74 75 76 77 78 | package Set::Scalar::Virtual;
use strict;
local $^W = 1;
use vars qw(@ISA);
@ISA = qw(Set::Scalar::Base);
use Set::Scalar::Base qw(_make_elements as_string _compare _strval);
use overload
'""' => \&as_string,
'eq' => \&are_equal,
'==' => \&are_equal;
sub ELEMENT_SEPARATOR { " " }
sub _extend {
my $self = shift;
my $elements = shift;
$self->_insert_elements( $elements );
}
sub extend {
my $self = shift;
$self->_extend( { _make_elements( @_ ) } );
}
sub compare {
my $a = shift;
my $b = shift;
if (ref $a && ref $b && $a->isa(__PACKAGE__) && $b->isa(__PACKAGE__)) {
$a = _strval($a);
$b = _strval($b);
}
return _compare($a, $b);
}
sub are_equal {
my $a = shift;
my $b = shift;
return $a->compare($b) eq 'equal';
}
sub clone {
my $self = shift;
return $self;
}
=pod
=head1 NAME
Set::Scalar::Virtual - internal class for Set::Scalar
=head1 SYNOPSIS
B<Internal use only>.
=head1 DESCRIPTION
B<This is not the module you are looking for.>
See the L<Set::Scalar>.
=head1 AUTHOR
Jarkko Hietaniemi <jhi@iki.fi>
=cut
1;
|