File Coverage

blib/lib/Test/Stream/Compare/Wildcard.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Test::Stream::Compare::Wildcard;
2 100     100   1053 use strict;
  100         197  
  100         2565  
3 100     100   506 use warnings;
  100         191  
  100         2295  
4              
5 100     100   504 use Test::Stream::Compare();
  100         192  
  100         2516  
6             use Test::Stream::HashBase(
7 100         754 base => 'Test::Stream::Compare',
8             accessors => [qw/expect/],
9 100     100   517 );
  100         178  
10              
11 100     100   551 use Carp qw/croak/;
  100         209  
  100         9277  
12              
13             sub init {
14 1557     1557 0 2063 my $self = shift;
15             croak "'expect' is a require attribute"
16 1557 100       4060 unless exists $self->{+EXPECT};
17              
18 1556         3891 $self->SUPER::init();
19             }
20              
21             1;
22              
23             __END__