Filename | /usr/local/src/github.com/foswiki/core/lib/Foswiki/Query/OP_dot.pm |
Statements | Executed 14 statements in 444µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
3 | 1 | 1 | 68µs | 105µs | new | Foswiki::Query::OP_dot::
1 | 1 | 1 | 25µs | 33µs | BEGIN@11 | Foswiki::Query::OP_dot::
1 | 1 | 1 | 17µs | 35µs | BEGIN@12 | Foswiki::Query::OP_dot::
1 | 1 | 1 | 9µs | 9µs | BEGIN@14 | Foswiki::Query::OP_dot::
0 | 0 | 0 | 0s | 0s | evaluate | Foswiki::Query::OP_dot::
0 | 0 | 0 | 0s | 0s | evaluatesToConstant | 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 | 47µs | 2 | 41µs | # spent 33µs (25+8) within Foswiki::Query::OP_dot::BEGIN@11 which was called:
# once (25µs+8µs) by Foswiki::Query::Parser::BEGIN@52 at line 11 # spent 33µs making 1 call to Foswiki::Query::OP_dot::BEGIN@11
# spent 8µs making 1 call to strict::import |
12 | 2 | 44µs | 2 | 53µs | # spent 35µs (17+18) within Foswiki::Query::OP_dot::BEGIN@12 which was called:
# once (17µs+18µs) by Foswiki::Query::Parser::BEGIN@52 at line 12 # spent 35µs making 1 call to Foswiki::Query::OP_dot::BEGIN@12
# spent 18µs making 1 call to warnings::import |
13 | |||||
14 | 2 | 280µs | 1 | 9µs | # spent 9µs within Foswiki::Query::OP_dot::BEGIN@14 which was called:
# once (9µs+0s) by Foswiki::Query::Parser::BEGIN@52 at line 14 # spent 9µs making 1 call to Foswiki::Query::OP_dot::BEGIN@14 |
15 | 1 | 9µs | our @ISA = ('Foswiki::Query::OP'); | ||
16 | |||||
17 | # spent 105µs (68+37) within Foswiki::Query::OP_dot::new which was called 3 times, avg 35µs/call:
# 3 times (68µs+37µs) by Foswiki::Query::Parser::new at line 105 of /usr/local/src/github.com/foswiki/core/lib/Foswiki/Query/Parser.pm, avg 35µs/call | ||||
18 | 6 | 59µs | my $class = shift; | ||
19 | 3 | 37µs | return $class->SUPER::new( arity => 2, name => '.', prec => 800 ); # spent 37µs making 3 calls to Foswiki::Query::OP::new, avg 12µ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 | |||||
28 | # See Foswiki/Query/Node.pm for an explanation of restricted names | ||||
29 | my $lval = $a->evaluate( restricted_name => 1, @_ ); | ||||
30 | return unless ( defined $lval ); | ||||
31 | my $b = $node->{params}[1]; | ||||
32 | my $res = $b->evaluate( data => $lval, tom => $domain{tom} ); | ||||
33 | if ( ref($res) eq 'ARRAY' && scalar(@$res) == 1 ) { | ||||
34 | return $res->[0]; | ||||
35 | } | ||||
36 | return $res; | ||||
37 | } | ||||
38 | |||||
39 | # Data sensitive, never evaluates to a constant | ||||
40 | sub evaluatesToConstant { 0 } | ||||
41 | |||||
42 | 1 | 6µs | 1; | ||
43 | __END__ |