| blib/lib/Test/Deep/RegexpVersion.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 6 | 6 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 2 | 2 | 100.0 |
| pod | n/a | ||
| total | 8 | 8 | 100.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | 40 | 40 | 267 | use strict; | |||
| 40 | 81 | ||||||
| 40 | 1160 | ||||||
| 2 | 40 | 40 | 208 | use warnings; | |||
| 40 | 75 | ||||||
| 40 | 2643 | ||||||
| 3 | |||||||
| 4 | package Test::Deep::RegexpVersion 1.204; | ||||||
| 5 | |||||||
| 6 | # Older versions of Perl treated Regexp refs as opaque scalars blessed | ||||||
| 7 | # into the "Regexp" class. Several bits of code need this so we | ||||||
| 8 | # centralise the test for that kind of version. | ||||||
| 9 | our $OldStyle = ($] < 5.011); | ||||||
| 10 | |||||||
| 11 | 1; | ||||||
| 12 | |||||||
| 13 | __END__ |