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   666 use strict;
  100         111  
  100         2243  
3 100     100   296 use warnings;
  100         107  
  100         1917  
4              
5 100     100   293 use base 'Test::Stream::Compare';
  100         115  
  100         5910  
6 100     100   381 use Test::Stream::HashBase accessors => [qw/expect/];
  100         114  
  100         540  
7              
8 100     100   403 use Carp qw/croak/;
  100         117  
  100         6869  
9              
10             sub init {
11 1575     1575 0 1143 my $self = shift;
12             croak "'expect' is a require attribute"
13 1575 100       2275 unless exists $self->{+EXPECT};
14              
15 1574         2464 $self->SUPER::init();
16             }
17              
18             1;
19              
20             __END__