From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DEXTER / Exception-System-0.0702 / t / benchmark.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

              
#!/usr/bin/perl -al
package My::Eval;
our $n = 0;
sub test {
    eval { 1; };
    $n++;
}
package My::DieScalar;
our $n = 0;
sub test {
    eval { die "Message\n"; };
    if ($@ eq "Message\n") { $n++; }
}
package My::DieObject;
our $n = 0;
sub test {
    eval { throw My::DieObject };
    if ($@ and $@->isa('My::DieObject')) { $n++; }
}
sub throw {
    my %args = @_;
    die bless {%args}, shift;
}
package My::ExceptionBase;
use lib '../lib';       
use Exception::Base;
our $n = 0;
sub test {
    try Exception::Base eval { throw Exception::Base message=>'Message'; };
    if (catch Exception::Base my $e) {
        if ($e->isa('Exception::Base') and $e->with('Message')) { $n++; }
    }
}
package My::ExceptionBase1;
use lib 'lib';  
use Exception::Base;
our $n = 0;
sub test {
    try Exception::Base eval { throw Exception::Base message=>'Message', verbosity=>1; };
    if (catch Exception::Base my $e) {
        if ($e->isa('Exception::Base') and $e->with('Message')) { $n++; }
    }
}
package My::ExceptionSystem;
use lib 'lib', '../lib';
use Exception::System;
our $n = 0;
sub test {
    try Exception::System eval { throw Exception::System message=>'Message'; };
    if (catch Exception::System my $e) {
        if ($e->isa('Exception::System') and $e->with('Message')) { $n++; }
    }
}
package My::ExceptionSystem1;
use lib 'lib', '../lib';
use Exception::System;
our $n = 0;
sub test {
    try Exception::System eval { throw Exception::System message=>'Message', verbosity=>1; };
    if (catch Exception::System my $e) {
        if ($e->isa('Exception::System') and $e->with('Message')) { $n++; }
    }
}
package My::ErrorSystemException;
use Error qw(:try);
use Error::SystemException;
our $n = 0;
sub test {
    try {
        throw Error::SystemException('Message');
    }
    catch Error with {
        my $e = shift;
        if ($e->text eq 'Message') { $n++; }
    };
}
package main;
use Benchmark;
timethese(-1, {
    '1_DieScalar'               => sub { My::DieScalar::test; },
    '2_DieObject'               => sub { My::DieObject::test; },
    '3_ExceptionBase'           => sub { My::ExceptionBase::test; },
    '4_ExceptionBase1'          => sub { My::ExceptionBase1::test; },
    '5_ExceptionSystem'         => sub { My::ExceptionSystem::test; },
    '6_ExceptionSystem1'        => sub { My::ExceptionSystem1::test; },
    '7_ErrorSystemException'    => sub { My::ErrorSystemException::test; },
});