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   1034 use strict;
  100         195  
  100         2539  
3 100     100   502 use warnings;
  100         229  
  100         2325  
4              
5 100     100   511 use Test::Stream::Compare();
  100         189  
  100         2524  
6             use Test::Stream::HashBase(
7 100         762 base => 'Test::Stream::Compare',
8             accessors => [qw/expect/],
9 100     100   506 );
  100         183  
10              
11 100     100   550 use Carp qw/croak/;
  100         194  
  100         9313  
12              
13             sub init {
14 1557     1557 0 2091 my $self = shift;
15             croak "'expect' is a require attribute"
16 1557 100       3948 unless exists $self->{+EXPECT};
17              
18 1556         4001 $self->SUPER::init();
19             }
20              
21             1;
22              
23             __END__