?PNG
IHDR ? f ??C1 sRGB ?? gAMA ?a pHYs ? ??od GIDATx^LeY?a?("Bh?_????q5k?*:t0A-o??]VkJM??f?8\k2ll1]q????T
Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/user1137782/www/china1.by/classwithtostring.php on line 86
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 213
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 214
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 218
PK [l
Lint/Debug.pmnu W+A package B::Lint::Debug;
=head1 NAME
B::Lint::Debug - Adds debugging stringification to B::
=head1 DESCRIPTION
This module injects stringification to a B::OP*/B::SPECIAL. This
should not be loaded unless you're debugging.
=cut
package B::SPECIAL;
use overload '""' => sub {
my $self = shift @_;
"SPECIAL($$self)";
};
package B::OP;
use overload '""' => sub {
my $self = shift @_;
my $class = ref $self;
$class =~ s/\AB:://xms;
my $name = $self->name;
"$class($name)";
};
package B::SVOP;
use overload '""' => sub {
my $self = shift @_;
my $class = ref $self;
$class =~ s/\AB:://xms;
my $name = $self->name;
"$class($name," . $self->sv . "," . $self->gv . ")";
};
package B::SPECIAL;
sub DESTROY { }
our $AUTOLOAD;
sub AUTOLOAD {
my $cx = 0;
print "AUTOLOAD $AUTOLOAD\n";
package DB;
while ( my @stuff = caller $cx ) {
print "$cx: [@DB::args] [@stuff]\n";
if ( ref $DB::args[0] ) {
if ( $DB::args[0]->can('padix') ) {
print " PADIX: " . $DB::args[0]->padix . "\n";
}
if ( $DB::args[0]->can('targ') ) {
print " TARG: " . $DB::args[0]->targ . "\n";
for ( B::Lint::cv()->PADLIST->ARRAY ) {
print +( $_->ARRAY )[ $DB::args[0]->targ ] . "\n";
}
}
}
++$cx;
}
}
1;
PK [l
Lint/Debug.pmnu W+A PK M