1
}
0 !
908ai~d
e8&61h
Index of /ALFA_DATA/alfasymlink/root/usr/share/locale/kam
Index of /ALFA_DATA/alfasymlink/root/usr/share/locale/kam
908۾
Index of /ALFA_DATA/alfasymlink/root/usr/share/locale/cad
Index of /ALFA_DATA/alfasymlink/root/usr/share/locale/cad
li~d
e8&61h
0
< _ ub
&=LV[( ? package NEXT;
$VERSION = '0.65';
use Carp;
use strict;
use overload ();
sub NEXT::ELSEWHERE::ancestors
{
my @inlist = shift;
my @outlist = ();
while (my $next = shift @inlist) {
push @outlist, $next;
no strict 'refs';
unshift @inlist, @{"$outlist[-1]::ISA"};
}
return @outlist;
}
sub NEXT::ELSEWHERE::ordered_ancestors
{
my @inlist = shift;
my @outlist = ();
while (my $next = shift @inlist) {
push @outlist, $next;
no strict 'refs';
push @inlist, @{"$outlist[-1]::ISA"};
}
return sort { $a->isa($b) ? -1
: $b->isa($a) ? +1
: 0 } @outlist;
}
sub NEXT::ELSEWHERE::buildAUTOLOAD
{
my $autoload_name = caller() . '::AUTOLOAD';
no strict 'refs';
*{$autoload_name} = sub {
my ($self) = @_;
my $depth = 1;
until (((caller($depth))[3]||q{}) !~ /^\(eval\)$/) { $depth++ }
my $caller = (caller($depth))[3];
my $wanted = $NEXT::AUTOLOAD || $autoload_name;
undef $NEXT::AUTOLOAD;
my ($caller_class, $caller_method) = do { $caller =~ m{(.*)::(.*)}g };
my ($wanted_class, $wanted_method) = do { $wanted =~ m{(.*)::(.*)}g };
croak "Can't call $wanted from $caller"
unless $caller_method eq $wanted_method;
my $key = ref $self && overload::Overloaded($self)
? overload::StrVal($self) : $self;
local ($NEXT::NEXT{$key,$wanted_method}, $NEXT::SEEN) =
($NEXT::NEXT{$key,$wanted_method}, $NEXT::SEEN);
unless ($NEXT::NEXT{$key,$wanted_method}) {
my @forebears =
NEXT::ELSEWHERE::ancestors ref $self || $self,
$wanted_class;
while (@forebears) {
last if shift @forebears eq $caller_class
}
no strict 'refs';
@{$NEXT::NEXT{$key,$wanted_method}} =
map {
my $stash = \%{"${_}::"};
($stash->{$caller_method} && (*{$stash->{$caller_method}}{CODE}))
? *{$stash->{$caller_method}}{CODE}