Filename | /var/www/foswiki11/lib/Foswiki/Query/OP_dot.pm |
Statements | Executed 14 statements in 354µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
3 | 1 | 1 | 55µs | 102µs | new | Foswiki::Query::OP_dot::
1 | 1 | 1 | 19µs | 37µs | BEGIN@11 | Foswiki::Query::OP_dot::
1 | 1 | 1 | 14µs | 21µs | BEGIN@12 | Foswiki::Query::OP_dot::
1 | 1 | 1 | 5µs | 5µs | BEGIN@14 | Foswiki::Query::OP_dot::
0 | 0 | 0 | 0s | 0s | evaluate | Foswiki::Query::OP_dot::
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::Query::OP_dot | ||||
6 | |||||
7 | =cut | ||||
8 | |||||
9 | package Foswiki::Query::OP_dot; | ||||
10 | |||||
11 | 2 | 39µs | 2 | 56µs | # spent 37µs (19+18) within Foswiki::Query::OP_dot::BEGIN@11 which was called:
# once (19µs+18µs) by Foswiki::Query::Parser::new at line 11 # spent 37µs making 1 call to Foswiki::Query::OP_dot::BEGIN@11
# spent 18µs making 1 call to strict::import |
12 | 2 | 42µs | 2 | 28µs | # spent 21µs (14+7) within Foswiki::Query::OP_dot::BEGIN@12 which was called:
# once (14µs+7µs) by Foswiki::Query::Parser::new at line 12 # spent 21µs making 1 call to Foswiki::Query::OP_dot::BEGIN@12
# spent 8µs making 1 call to warnings::import |
13 | |||||
14 | 2 | 210µs | 1 | 5µs | # spent 5µs within Foswiki::Query::OP_dot::BEGIN@14 which was called:
# once (5µs+0s) by Foswiki::Query::Parser::new at line 14 # spent 5µs making 1 call to Foswiki::Query::OP_dot::BEGIN@14 |
15 | 1 | 11µs | our @ISA = ('Foswiki::Query::BinaryOP'); | ||
16 | |||||
17 | # spent 102µs (55+47) within Foswiki::Query::OP_dot::new which was called 3 times, avg 34µs/call:
# 3 times (55µs+47µs) by Foswiki::Query::Parser::new at line 47 of /var/www/foswiki11/lib/Foswiki/Query/Parser.pm, avg 34µs/call | ||||
18 | 3 | 3µs | my $class = shift; | ||
19 | 3 | 45µs | 3 | 47µs | return $class->SUPER::new( name => '.', prec => 800 ); # spent 47µs making 3 calls to Foswiki::Query::BinaryOP::new, avg 16µs/call |
20 | } | ||||
21 | |||||
22 | sub evaluate { | ||||
23 | my $this = shift; | ||||
24 | my $node = shift; | ||||
25 | my %domain = @_; | ||||
26 | my $a = $node->{params}[0]; | ||||
27 | my $lval = $a->evaluate(@_); | ||||
28 | return unless ( defined $lval ); | ||||
29 | my $b = $node->{params}[1]; | ||||
30 | my $res = $b->evaluate( data => $lval, tom => $domain{tom} ); | ||||
31 | if ( ref($res) eq 'ARRAY' && scalar(@$res) == 1 ) { | ||||
32 | return $res->[0]; | ||||
33 | } | ||||
34 | return $res; | ||||
35 | } | ||||
36 | |||||
37 | 1 | 4µs | 1; | ||
38 | __END__ |