Filename | /home/micha/.plenv/versions/5.38.2/lib/perl5/site_perl/5.38.2/Test2/Event/Exception.pm |
Statements | Executed 10 statements in 197µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 10µs | 11µs | BEGIN@2 | Test2::Event::Exception::
1 | 1 | 1 | 7µs | 7µs | BEGIN@8 | Test2::Event::Exception::
1 | 1 | 1 | 5µs | 59µs | BEGIN@9 | Test2::Event::Exception::
1 | 1 | 1 | 3µs | 25µs | BEGIN@3 | Test2::Event::Exception::
0 | 0 | 0 | 0s | 0s | causes_fail | Test2::Event::Exception::
0 | 0 | 0 | 0s | 0s | diagnostics | Test2::Event::Exception::
0 | 0 | 0 | 0s | 0s | facet_data | Test2::Event::Exception::
0 | 0 | 0 | 0s | 0s | init | Test2::Event::Exception::
0 | 0 | 0 | 0s | 0s | summary | Test2::Event::Exception::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Test2::Event::Exception; | ||||
2 | 2 | 18µs | 2 | 13µs | # spent 11µs (10+2) within Test2::Event::Exception::BEGIN@2 which was called:
# once (10µs+2µs) by Test2::API::BEGIN@97 at line 2 # spent 11µs making 1 call to Test2::Event::Exception::BEGIN@2
# spent 2µs making 1 call to strict::import |
3 | 2 | 39µs | 2 | 47µs | # spent 25µs (3+22) within Test2::Event::Exception::BEGIN@3 which was called:
# once (3µs+22µs) by Test2::API::BEGIN@97 at line 3 # spent 25µs making 1 call to Test2::Event::Exception::BEGIN@3
# spent 22µs making 1 call to warnings::import |
4 | |||||
5 | 1 | 300ns | our $VERSION = '1.302198'; | ||
6 | |||||
7 | |||||
8 | 2 | 23µs | 1 | 7µs | # spent 7µs within Test2::Event::Exception::BEGIN@8 which was called:
# once (7µs+0s) by Test2::API::BEGIN@97 at line 8 # spent 7µs making 1 call to Test2::Event::Exception::BEGIN@8 |
9 | 2 | 115µs | 2 | 113µs | # spent 59µs (5+54) within Test2::Event::Exception::BEGIN@9 which was called:
# once (5µs+54µs) by Test2::API::BEGIN@97 at line 9 # spent 59µs making 1 call to Test2::Event::Exception::BEGIN@9
# spent 54µs making 1 call to Test2::Util::HashBase::import |
10 | |||||
11 | sub init { | ||||
12 | my $self = shift; | ||||
13 | $self->{+ERROR} = "$self->{+ERROR}"; | ||||
14 | } | ||||
15 | |||||
16 | sub causes_fail { 1 } | ||||
17 | |||||
18 | sub summary { | ||||
19 | my $self = shift; | ||||
20 | chomp(my $msg = "Exception: " . $self->{+ERROR}); | ||||
21 | return $msg; | ||||
22 | } | ||||
23 | |||||
24 | sub diagnostics { 1 } | ||||
25 | |||||
26 | sub facet_data { | ||||
27 | my $self = shift; | ||||
28 | my $out = $self->common_facet_data; | ||||
29 | |||||
30 | $out->{errors} = [ | ||||
31 | { | ||||
32 | tag => 'ERROR', | ||||
33 | fail => 1, | ||||
34 | details => $self->{+ERROR}, | ||||
35 | } | ||||
36 | ]; | ||||
37 | |||||
38 | return $out; | ||||
39 | } | ||||
40 | |||||
41 | |||||
42 | 1 | 2µs | 1; | ||
43 | |||||
44 | __END__ |