One Hat Cyber Team

Your IP: 216.73.216.40
Server IP: 13.127.59.50
Server: Linux ip-172-31-46-210 5.15.0-1033-aws #37~20.04.1-Ubuntu SMP Fri Mar 17 11:39:30 UTC 2023 x86_64
Server Software: Apache/2.4.41 (Ubuntu)
PHP Version: 7.4.3-4ubuntu2.29
Buat File | Buat Folder

Dir : ~/usr/share/doc/liberror-perl/examples/

View File Name : example.pl

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
}