← 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_like.pm
StatementsExecuted 14 statements in 385µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31149µs98µsFoswiki::Query::OP_like::::newFoswiki::Query::OP_like::new
11120µs39µsFoswiki::Query::OP_like::::BEGIN@11Foswiki::Query::OP_like::BEGIN@11
11113µs20µsFoswiki::Query::OP_like::::BEGIN@12Foswiki::Query::OP_like::BEGIN@12
1115µs5µsFoswiki::Query::OP_like::::BEGIN@14Foswiki::Query::OP_like::BEGIN@14
0000s0sFoswiki::Query::OP_like::::__ANON__[:37]Foswiki::Query::OP_like::__ANON__[:37]
0000s0sFoswiki::Query::OP_like::::evaluateFoswiki::Query::OP_like::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_like
6
7=cut
8
9package Foswiki::Query::OP_like;
10
11240µs259µs
# spent 39µs (20+19) within Foswiki::Query::OP_like::BEGIN@11 which was called: # once (20µs+19µs) by Foswiki::Query::Parser::new at line 11
use strict;
# spent 39µs making 1 call to Foswiki::Query::OP_like::BEGIN@11 # spent 19µs making 1 call to strict::import
12240µs228µs
# spent 20µs (13+8) within Foswiki::Query::OP_like::BEGIN@12 which was called: # once (13µs+8µs) by Foswiki::Query::Parser::new at line 12
use warnings;
# spent 20µs making 1 call to Foswiki::Query::OP_like::BEGIN@12 # spent 8µs making 1 call to warnings::import
13
142247µs15µs
# spent 5µs within Foswiki::Query::OP_like::BEGIN@14 which was called: # once (5µs+0s) by Foswiki::Query::Parser::new at line 14
use Foswiki::Query::BinaryOP ();
# spent 5µs making 1 call to Foswiki::Query::OP_like::BEGIN@14
15110µsour @ISA = ('Foswiki::Query::BinaryOP');
16
17
# spent 98µs (49+49) within Foswiki::Query::OP_like::new which was called 3 times, avg 33µs/call: # 3 times (49µ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;
19342µs349µs return $class->SUPER::new( name => '~', prec => 500 );
# spent 49µs making 3 calls to Foswiki::Query::BinaryOP::new, avg 16µs/call
20}
21
22sub evaluate {
23 my $this = shift;
24 my $node = shift;
25 return $this->evalTest(
26 $node,
27 \@_,
28 sub {
29 my $expr = quotemeta( $_[1] );
30
31 # quotemeta will have escapes * and ? wildcards
32 $expr =~ s/\\\?/./g;
33 $expr =~ s/\\\*/.*/g;
34 defined( $_[0] )
35 && defined( $_[1] )
36 && $_[0] =~ m/^$expr$/s ? 1 : 0;
37 }
38 );
39}
40
4114µs1;
42__END__