File | /usr/local/lib/perl5/5.10.1/Test/Deep/RegexpVersion.pm |
Statements Executed | 11 |
Statement Execution Time | 89µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 5µs | 25µs | BEGIN@6 | Test::Deep::RegexpVersion::
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 # 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; |