Filename | /home/mickey/git_tree/PONAPI/Server/lib/PONAPI/Constants.pm |
Statements | Executed 16 statements in 188µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 19µs | 71µs | BEGIN@8 | PONAPI::Constants::
1 | 1 | 1 | 14µs | 30µs | BEGIN@4 | PONAPI::Constants::
1 | 1 | 1 | 8µs | 13µs | BEGIN@5 | PONAPI::Constants::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # ABSTRACT: Constants used by PONAPI::DAO and PONAPI repositories | ||||
2 | package PONAPI::Constants; | ||||
3 | |||||
4 | 2 | 21µs | 2 | 45µs | # spent 30µs (14+15) within PONAPI::Constants::BEGIN@4 which was called:
# once (14µs+15µs) by PONAPI::DAO::Request::Role::UpdateLike::BEGIN@6 at line 4 # spent 30µs making 1 call to PONAPI::Constants::BEGIN@4
# spent 15µs making 1 call to strict::import |
5 | 2 | 76µs | 2 | 19µs | # spent 13µs (8+6) within PONAPI::Constants::BEGIN@5 which was called:
# once (8µs+6µs) by PONAPI::DAO::Request::Role::UpdateLike::BEGIN@6 at line 5 # spent 13µs making 1 call to PONAPI::Constants::BEGIN@5
# spent 6µs making 1 call to warnings::import |
6 | |||||
7 | 1 | 100ns | my $constants; | ||
8 | # spent 71µs (19+53) within PONAPI::Constants::BEGIN@8 which was called:
# once (19µs+53µs) by PONAPI::DAO::Request::Role::UpdateLike::BEGIN@6 at line 22 | ||||
9 | 1 | 2µs | $constants = { | ||
10 | PONAPI_UPDATED_EXTENDED => 100, | ||||
11 | PONAPI_UPDATED_NORMAL => 101, | ||||
12 | PONAPI_UPDATED_NOTHING => 102, | ||||
13 | }; | ||||
14 | |||||
15 | 2 | 2µs | 1 | 53µs | require constant; constant->import($constants); # spent 53µs making 1 call to constant::import |
16 | 2 | 9µs | require Exporter; our @ISA = qw(Exporter); | ||
17 | 1 | 4µs | our @EXPORT = ( keys %$constants, | ||
18 | qw/ | ||||
19 | %PONAPI_UPDATE_RETURN_VALUES | ||||
20 | /, | ||||
21 | ); | ||||
22 | 1 | 59µs | 1 | 71µs | } # spent 71µs making 1 call to PONAPI::Constants::BEGIN@8 |
23 | |||||
24 | 1 | 100ns | our (%PONAPI_UPDATE_RETURN_VALUES); | ||
25 | |||||
26 | 1 | 9µs | $PONAPI_UPDATE_RETURN_VALUES{+PONAPI_UPDATED_EXTENDED} = 1; | ||
27 | 1 | 300ns | $PONAPI_UPDATE_RETURN_VALUES{+PONAPI_UPDATED_NORMAL} = 1; | ||
28 | 1 | 100ns | $PONAPI_UPDATE_RETURN_VALUES{+PONAPI_UPDATED_NOTHING} = 1; | ||
29 | |||||
30 | 1 | 4µs | 1; | ||
31 | |||||
32 | __END__ |