Profile of /usr/local/lib/perl5/5.10.1/Test/Deep/RegexpVersion.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For 05.Domain_and_Item.t
Run on Tue May 4 17:21:41 2010
Reported on Tue May 4 17:22:59 2010

File | /usr/local/lib/perl5/5.10.1/Test/Deep/RegexpVersion.pm
Statements Executed | 11
Statement Execution Time | 89µs

Subroutines — ordered by exclusive time
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 5µs | 25µs | Test::Deep::RegexpVersion::::BEGIN@6Test::Deep::RegexpVersion::BEGIN@6

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 | 3 | 19µs | 2 | 19µs | use strict; # spent 16µs making 1 call to Test::Deep::BEGIN@1 # spent 3µs making 1 call to strict::import
2 | 3 | 32µs | 2 | 24µs | use warnings; # spent 15µs making 1 call to Test::Deep::BEGIN@2 # spent 9µs making 1 call to warnings::import
3 |  |  |  |  |
4 |  |  |  |  | package Test::Deep::RegexpVersion;
5 |  |  |  |  |
6 | 3 | 33µs | 2 | 45µs | # spent 25µs (5+20) within Test::Deep::RegexpVersion::BEGIN@6 which was called # once (5µs+20µs) by Test::Deep::BEGIN@9 at line 6 use vars qw( $OldStyle ); # spent 25µs making 1 call to Test::Deep::RegexpVersion::BEGIN@6 # spent 20µs making 1 call to vars::import
7 |  |  |  |  |
8 |  |  |  |  | # Older versions of Perl treated Regexp refs as opaque scalars blessed
9 |  |  |  |  | # into the "Regexp" class. Several bits of code need this so we
10 |  |  |  |  | # centralise the test for that kind of version.
11 | 1 | 2µs |  |  | $OldStyle = ($] < 5.011);
12 |  |  |  |  |
13 | 1 | 3µs |  |  | 1;