Filename | /var/www/foswikidev/core/lib/Foswiki/Infix/Error.pm |
Statements | Executed 9 statements in 208µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 13µs | 25µs | BEGIN@13 | Foswiki::Infix::Error::
1 | 1 | 1 | 9µs | 13µs | BEGIN@14 | Foswiki::Infix::Error::
1 | 1 | 1 | 4µs | 4µs | BEGIN@19 | Foswiki::Infix::Error::
1 | 1 | 1 | 3µs | 3µs | BEGIN@16 | Foswiki::Infix::Error::
0 | 0 | 0 | 0s | 0s | new | Foswiki::Infix::Error::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # See bottom of file for license and copyright information | ||||
2 | |||||
3 | =begin TML | ||||
4 | |||||
5 | ---+ package Foswiki::Infix::Error | ||||
6 | |||||
7 | Class of errors used with Foswiki::Infix::Parser | ||||
8 | |||||
9 | =cut | ||||
10 | |||||
11 | package Foswiki::Infix::Error; | ||||
12 | |||||
13 | 2 | 27µs | 2 | 37µs | # spent 25µs (13+12) within Foswiki::Infix::Error::BEGIN@13 which was called:
# once (13µs+12µs) by Foswiki::UI::BEGIN@171 at line 13 # spent 25µs making 1 call to Foswiki::Infix::Error::BEGIN@13
# spent 12µs making 1 call to strict::import |
14 | 2 | 22µs | 2 | 17µs | # spent 13µs (9+4) within Foswiki::Infix::Error::BEGIN@14 which was called:
# once (9µs+4µs) by Foswiki::UI::BEGIN@171 at line 14 # spent 13µs making 1 call to Foswiki::Infix::Error::BEGIN@14
# spent 4µs making 1 call to warnings::import |
15 | |||||
16 | 2 | 55µs | 1 | 3µs | # spent 3µs within Foswiki::Infix::Error::BEGIN@16 which was called:
# once (3µs+0s) by Foswiki::UI::BEGIN@171 at line 16 # spent 3µs making 1 call to Foswiki::Infix::Error::BEGIN@16 |
17 | 1 | 7µs | our @ISA = ('Error'); | ||
18 | |||||
19 | # spent 4µs within Foswiki::Infix::Error::BEGIN@19 which was called:
# once (4µs+0s) by Foswiki::UI::BEGIN@171 at line 24 | ||||
20 | 1 | 5µs | if ( $Foswiki::cfg{UseLocale} ) { | ||
21 | require locale; | ||||
22 | import locale(); | ||||
23 | } | ||||
24 | 1 | 90µs | 1 | 4µs | } # spent 4µs making 1 call to Foswiki::Infix::Error::BEGIN@19 |
25 | |||||
26 | sub new { | ||||
27 | my ( $class, $message, $expr, $at ) = @_; | ||||
28 | if ( defined $expr && length($expr) ) { | ||||
29 | $message .= " in '$expr'"; | ||||
30 | } | ||||
31 | if ( defined $at && length($at) ) { | ||||
32 | $message .= " at '$at'"; | ||||
33 | } | ||||
34 | return $class->SUPER::new( | ||||
35 | -text => $message, | ||||
36 | -file => 'dummy', | ||||
37 | -line => 'dummy' | ||||
38 | ); | ||||
39 | } | ||||
40 | |||||
41 | 1 | 3µs | 1; | ||
42 | __END__ |