← Index
NYTProf Performance Profile   « line view »
For ./view
  Run on Fri Jul 31 19:05:14 2015
Reported on Fri Jul 31 19:08:10 2015

Filename/var/www/foswiki11/lib/Foswiki/Query/OP_length.pm
StatementsExecuted 14 statements in 337µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31151µs100µsFoswiki::Query::OP_length::::newFoswiki::Query::OP_length::new
11120µs43µsFoswiki::Query::OP_length::::BEGIN@11Foswiki::Query::OP_length::BEGIN@11
11113µs21µsFoswiki::Query::OP_length::::BEGIN@12Foswiki::Query::OP_length::BEGIN@12
1115µs5µsFoswiki::Query::OP_length::::BEGIN@14Foswiki::Query::OP_length::BEGIN@14
0000s0sFoswiki::Query::OP_length::::evaluateFoswiki::Query::OP_length::evaluate
Call graph for these subroutines as a Graphviz dot language file.
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_length
6
7=cut
8
9package Foswiki::Query::OP_length;
10
11241µs266µs
# spent 43µs (20+23) within Foswiki::Query::OP_length::BEGIN@11 which was called: # once (20µs+23µs) by Foswiki::Query::Parser::new at line 11
use strict;
# spent 43µs making 1 call to Foswiki::Query::OP_length::BEGIN@11 # spent 23µs making 1 call to strict::import
12236µs228µs
# spent 21µs (13+8) within Foswiki::Query::OP_length::BEGIN@12 which was called: # once (13µs+8µs) by Foswiki::Query::Parser::new at line 12
use warnings;
# spent 21µs making 1 call to Foswiki::Query::OP_length::BEGIN@12 # spent 8µs making 1 call to warnings::import
13
142201µs15µs
# spent 5µs within Foswiki::Query::OP_length::BEGIN@14 which was called: # once (5µs+0s) by Foswiki::Query::Parser::new at line 14
use Foswiki::Query::UnaryOP ();
# spent 5µs making 1 call to Foswiki::Query::OP_length::BEGIN@14
15110µsour @ISA = ('Foswiki::Query::UnaryOP');
16
17
# spent 100µs (51+49) within Foswiki::Query::OP_length::new which was called 3 times, avg 33µs/call: # 3 times (51µs+49µs) by Foswiki::Query::Parser::new at line 47 of /var/www/foswiki11/lib/Foswiki/Query/Parser.pm, avg 33µs/call
sub new {
1832µs my $class = shift;
19343µs349µs return $class->SUPER::new( name => 'length', prec => 600 );
# spent 49µs making 3 calls to Foswiki::Query::UnaryOP::new, avg 16µs/call
20}
21
22sub evaluate {
23 my $this = shift;
24 my $node = shift;
25 my $a = $node->{params}[0];
26 my $val = $a->evaluate(@_) || '';
27 return 0 unless defined $val;
28 if ( ref($val) eq 'ARRAY' ) {
29 return scalar(@$val);
30 }
31 elsif ( ref($val) eq 'HASH' ) {
32 return scalar( keys %$val );
33 }
34 elsif ( !ref($val) ) {
35 return length($val);
36 }
37 return 1;
38}
39
4014µs1;
41__END__