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; |