line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Test2::Compare::Wildcard; |
2
|
169
|
|
|
169
|
|
1127
|
use strict; |
|
169
|
|
|
|
|
328
|
|
|
169
|
|
|
|
|
5200
|
|
3
|
169
|
|
|
169
|
|
865
|
use warnings; |
|
169
|
|
|
|
|
319
|
|
|
169
|
|
|
|
|
4736
|
|
4
|
|
|
|
|
|
|
|
5
|
169
|
|
|
169
|
|
934
|
use base 'Test2::Compare::Base'; |
|
169
|
|
|
|
|
361
|
|
|
169
|
|
|
|
|
20538
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
our $VERSION = '0.000156'; |
8
|
|
|
|
|
|
|
|
9
|
169
|
|
|
169
|
|
1274
|
use Test2::Util::HashBase qw/expect/; |
|
169
|
|
|
|
|
406
|
|
|
169
|
|
|
|
|
1364
|
|
10
|
|
|
|
|
|
|
|
11
|
169
|
|
|
169
|
|
26617
|
use Carp qw/croak/; |
|
169
|
|
|
|
|
375
|
|
|
169
|
|
|
|
|
20456
|
|
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub init { |
14
|
5209
|
|
|
5209
|
0
|
57867
|
my $self = shift; |
15
|
|
|
|
|
|
|
croak "'expect' is a require attribute" |
16
|
5209
|
100
|
|
|
|
9970
|
unless exists $self->{+EXPECT}; |
17
|
|
|
|
|
|
|
|
18
|
5208
|
|
|
|
|
12027
|
$self->SUPER::init(); |
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
1; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
__END__ |