| File: | local/lib/perl5/Test/Deep/RegexpVersion.pm |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | 6 6 6 | 13 5 90 | use strict; | |||
| 2 | 6 6 6 | 11 4 144 | use warnings; | |||
| 3 | ||||||
| 4 | package Test::Deep::RegexpVersion; | |||||
| 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; | |||||