/usr/share/perl5/Perl6/Junction/Base.pm is in libperl6-junction-perl 1.60000-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 | package Perl6::Junction::Base;
use strict;
our $VERSION = '1.60000';
use overload(
'==' => "num_eq",
'!=' => "num_ne",
'>=' => "num_ge",
'>' => "num_gt",
'<=' => "num_le",
'<' => "num_lt",
'eq' => "str_eq",
'ne' => "str_ne",
'ge' => "str_ge",
'gt' => "str_gt",
'le' => "str_le",
'lt' => "str_lt",
'bool' => "bool",
'""' => sub {shift},
);
sub new {
my ( $class, @param ) = @_;
return bless \@param, $class;
}
sub values {
my $self = shift;
return wantarray ? @$self : [ @$self ];
}
1;
|