Gecko [ paroquia-rio-de-mouro.pt ]

Name	Size	Permission	Date
App	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Archive	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Attribute	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
B	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
CPAN	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Carp	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Class	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Compress	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Config	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
DBM_Filter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Devel	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Digest	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Encode	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Exporter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
ExtUtils	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
File	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Filter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Getopt	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
HTTP	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
I18N	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
IO	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
IPC	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
JSON	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Locale	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Math	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Memoize	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Module	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Net	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Params	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Parse	[ DIR ]	drwxr-xr-x	2016-11-15 15:18
Perl	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
PerlIO	[ DIR ]	drwxr-xr-x	2016-11-15 15:18
Pod	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Search	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
TAP	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Term	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Test	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Text	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Thread	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Tie	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Time	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Unicode	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
User	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
autodie	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
encoding	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
overload	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
pod	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
unicore	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
version	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
warnings	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
AnyDBM_File.pm	2.56 KB	-rw-r--r--	2020-10-19 12:57
AutoLoader.pm	5.36 KB	-rw-r--r--	2020-10-19 12:57
AutoSplit.pm	19.18 KB	-rw-r--r--	2020-10-19 12:57
Benchmark.pm	29.64 KB	-rw-r--r--	2020-10-19 12:57
CORE.pod	3.19 KB	-rw-r--r--	2020-10-19 12:57
CPAN.pm	136.68 KB	-rw-r--r--	2020-10-19 12:57
Carp.pm	19.6 KB	-rw-r--r--	2020-10-19 12:57
DB.pm	18.48 KB	-rw-r--r--	2020-10-19 12:57
DBM_Filter.pm	14.05 KB	-rw-r--r--	2020-10-19 12:57
Digest.pm	10.35 KB	-rw-r--r--	2020-10-19 12:57
DirHandle.pm	1.52 KB	-rw-r--r--	2020-10-19 12:57
Dumpvalue.pm	16.5 KB	-rw-r--r--	2020-10-19 12:57
English.pm	4.64 KB	-rw-r--r--	2020-10-19 12:57
Env.pm	5.39 KB	-rw-r--r--	2020-10-19 12:57
Exporter.pm	2.31 KB	-rw-r--r--	2020-10-19 12:57
Fatal.pm	59.2 KB	-rw-r--r--	2020-10-19 12:57
FileCache.pm	5.44 KB	-rw-r--r--	2020-10-19 12:57
FileHandle.pm	2.06 KB	-rw-r--r--	2020-10-19 12:57
FindBin.pm	4.45 KB	-rw-r--r--	2020-10-19 12:57
Memoize.pm	35.28 KB	-rw-r--r--	2020-10-19 12:57
NEXT.pm	18.05 KB	-rw-r--r--	2020-10-19 12:57
PerlIO.pm	10.21 KB	-rw-r--r--	2020-10-19 12:57
Safe.pm	24.4 KB	-rw-r--r--	2020-10-19 12:57
SelectSaver.pm	344 B	-rw-r--r--	2020-10-19 12:57
SelfLoader.pm	17.41 KB	-rw-r--r--	2020-10-19 12:57
Symbol.pm	2.05 KB	-rw-r--r--	2020-10-19 12:57
Test.pm	28.12 KB	-rw-r--r--	2020-10-19 12:57
Thread.pm	8.09 KB	-rw-r--r--	2020-10-19 12:57
UNIVERSAL.pm	6.44 KB	-rw-r--r--	2020-10-19 12:57
XSLoader.pm	3.95 KB	-rw-r--r--	2020-10-19 12:57
_charnames.pm	32.7 KB	-rw-r--r--	2020-10-19 12:57
autodie.pm	12.58 KB	-rw-r--r--	2020-10-19 12:57
autouse.pm	4.14 KB	-rw-r--r--	2020-10-19 12:57
base.pm	5.21 KB	-rw-r--r--	2020-10-19 12:57
bigint.pm	18.9 KB	-rw-r--r--	2020-10-19 12:57
bignum.pm	18.34 KB	-rw-r--r--	2020-10-19 12:57
bigrat.pm	14.23 KB	-rw-r--r--	2020-10-19 12:57
blib.pm	2.04 KB	-rw-r--r--	2020-10-19 12:57
bytes.pm	447 B	-rw-r--r--	2020-10-19 12:57
bytes_heavy.pl	758 B	-rw-r--r--	2020-10-19 12:57
charnames.pm	20.5 KB	-rw-r--r--	2020-10-19 12:57
constant.pm	5.6 KB	-rw-r--r--	2020-10-19 12:57
deprecate.pm	3.43 KB	-rw-r--r--	2020-10-19 12:57
diagnostics.pm	18.26 KB	-rw-r--r--	2020-10-19 12:57
dumpvar.pl	15.19 KB	-rw-r--r--	2020-10-19 12:57
experimental.pm	5.39 KB	-rw-r--r--	2020-10-19 12:57
feature.pm	4.08 KB	-rw-r--r--	2020-10-19 12:57
fields.pm	4.87 KB	-rw-r--r--	2020-10-19 12:57
filetest.pm	3.91 KB	-rw-r--r--	2020-10-19 12:57
if.pm	2.98 KB	-rw-r--r--	2020-10-19 12:57
integer.pm	172 B	-rw-r--r--	2020-10-19 12:57
less.pm	3.13 KB	-rw-r--r--	2020-10-19 12:57
locale.pm	2.81 KB	-rw-r--r--	2020-10-19 12:57
meta_notation.pm	2.17 KB	-rw-r--r--	2020-10-19 12:57
ok.pm	968 B	-rw-r--r--	2020-10-19 12:57
open.pm	7.83 KB	-rw-r--r--	2020-10-19 12:57
overload.pm	4.36 KB	-rw-r--r--	2020-10-19 12:57
overloading.pm	964 B	-rw-r--r--	2020-10-19 12:57
parent.pm	607 B	-rw-r--r--	2020-10-19 12:57
perl5db.pl	308.3 KB	-rw-r--r--	2020-10-19 12:57
perlfaq.pm	78 B	-rw-r--r--	2020-10-19 12:57
sigtrap.pm	7.43 KB	-rw-r--r--	2020-10-19 12:57
sort.pm	5.94 KB	-rw-r--r--	2020-10-19 12:57
strict.pm	1.48 KB	-rw-r--r--	2020-10-19 12:57
subs.pm	848 B	-rw-r--r--	2020-10-19 12:57
utf8.pm	342 B	-rw-r--r--	2020-10-19 12:57
utf8_heavy.pl	31.25 KB	-rw-r--r--	2020-10-19 12:57
vars.pm	1.12 KB	-rw-r--r--	2020-10-19 12:57
version.pm	1.58 KB	-rw-r--r--	2020-10-19 12:57
version.pod	9.62 KB	-rw-r--r--	2020-10-19 12:57
vmsish.pm	4.21 KB	-rw-r--r--	2020-10-19 12:57
warnings.pm	21.49 KB	-rw-r--r--	2020-10-19 12:57

Rename

package overload;

our $VERSION = '1.26';

%ops = (
    with_assign         => "+ - * / % ** << >> x .",
    assign              => "+= -= *= /= %= **= <<= >>= x= .=",
    num_comparison      => "< <= >  >= == !=",
    '3way_comparison'   => "<=> cmp",
    str_comparison      => "lt le gt ge eq ne",
    binary              => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
    unary               => "neg ! ~ ~.",
    mutators            => '++ --',
    func                => "atan2 cos sin exp abs log sqrt int",
    conversion          => 'bool "" 0+ qr',
    iterators           => '<>',
    filetest            => "-X",
    dereferencing       => '${} @{} %{} &{} *{}',
    matching            => '~~',
    special             => 'nomethod fallback =',
);

my %ops_seen;
for $category (keys %ops) {
    $ops_seen{$_}++ for (split /\s+/, $ops{$category});
}

sub nil {}

sub OVERLOAD {
  $package = shift;
  my %arg = @_;
  my $sub;
  *{$package . "::(("} = \&nil; # Make it findable via fetchmethod.
  for (keys %arg) {
    if ($_ eq 'fallback') {
      for my $sym (*{$package . "::()"}) {
	*$sym = \&nil; # Make it findable via fetchmethod.
	$$sym = $arg{$_};
      }
    } else {
      warnings::warnif("overload arg '$_' is invalid")
        unless $ops_seen{$_};
      $sub = $arg{$_};
      if (not ref $sub) {
	$ {$package . "::(" . $_} = $sub;
	$sub = \&nil;
      }
      #print STDERR "Setting '$ {'package'}::\cO$_' to \\&'$sub'.\n";
      *{$package . "::(" . $_} = \&{ $sub };
    }
  }
}

sub import {
  $package = (caller())[0];
  # *{$package . "::OVERLOAD"} = \&OVERLOAD;
  shift;
  $package->overload::OVERLOAD(@_);
}

sub unimport {
  $package = (caller())[0];
  shift;
  *{$package . "::(("} = \&nil;
  for (@_) {
      warnings::warnif("overload arg '$_' is invalid")
        unless $ops_seen{$_};
      delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_};
  }
}

sub Overloaded {
  my $package = shift;
  $package = ref $package if ref $package;
  mycan ($package, '()') || mycan ($package, '((');
}

sub ov_method {
  my $globref = shift;
  return undef unless $globref;
  my $sub = \&{*$globref};
  no overloading;
  return $sub if $sub != \&nil;
  return shift->can($ {*$globref});
}

sub OverloadedStringify {
  my $package = shift;
  $package = ref $package if ref $package;
  #$package->can('(""')
  ov_method mycan($package, '(""'), $package
    or ov_method mycan($package, '(0+'), $package
    or ov_method mycan($package, '(bool'), $package
    or ov_method mycan($package, '(nomethod'), $package;
}

sub Method {
  my $package = shift;
  if(ref $package) {
    local $@;
    local $!;
    require Scalar::Util;
    $package = Scalar::Util::blessed($package);
    return undef if !defined $package;
  }
  #my $meth = $package->can('(' . shift);
  ov_method mycan($package, '(' . shift), $package;
  #return $meth if $meth ne \&nil;
  #return $ {*{$meth}};
}

sub AddrRef {
  no overloading;
  "$_[0]";
}

*StrVal = *AddrRef;

sub mycan {				# Real can would leave stubs.
  my ($package, $meth) = @_;

local $@;
  local $!;
  require mro;

my $mro = mro::get_linear_isa($package);
  foreach my $p (@$mro) {
    my $fqmeth = $p . q{::} . $meth;
    return \*{$fqmeth} if defined &{$fqmeth};
  }

return undef;
}

%constants = (
	      'integer'	  =>  0x1000, # HINT_NEW_INTEGER
	      'float'	  =>  0x2000, # HINT_NEW_FLOAT
	      'binary'	  =>  0x4000, # HINT_NEW_BINARY
	      'q'	  =>  0x8000, # HINT_NEW_STRING
	      'qr'	  => 0x10000, # HINT_NEW_RE
	     );

use warnings::register;
sub constant {
  # Arguments: what, sub
  while (@_) {
    if (@_ == 1) {
        warnings::warnif ("Odd number of arguments for overload::constant");
        last;
    }
    elsif (!exists $constants {$_ [0]}) {
        warnings::warnif ("'$_[0]' is not an overloadable type");
    }
    elsif (!ref $_ [1] || "$_[1]" !~ /(^|=)CODE$0x[0-9a-f]+$$/) {
        # Can't use C<ref $_[1] eq "CODE"> above as code references can be
        # blessed, and C<ref> would return the package the ref is blessed into.
        if (warnings::enabled) {
            $_ [1] = "undef" unless defined $_ [1];
            warnings::warn ("'$_[1]' is not a code reference");
        }
    }
    else {
        $^H{$_[0]} = $_[1];
        $^H |= $constants{$_[0]};
    }
    shift, shift;
  }
}

sub remove_constant {
  # Arguments: what, sub
  while (@_) {
    delete $^H{$_[0]};
    $^H &= ~ $constants{$_[0]};
    shift, shift;
  }
}

__END__