File Coverage

blib/lib/Csistck/Test/NOOP.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 8 8 100.0
pod 1 2 50.0
total 31 32 96.8


line stmt bran cond sub pod time code
1             package Csistck::Test::NOOP;
2              
3 17     17   279 use 5.010;
  17         47  
4 17     17   83 use strict;
  17         22  
  17         421  
5 17     17   106 use warnings;
  17         23  
  17         557  
6              
7 17     17   76 use base 'Csistck::Test';
  17         22  
  17         7782  
8 17     17   96 use Csistck::Oper;
  17         25  
  17         598  
9 17     17   73 use Csistck::Test::Return;
  17         18  
  17         1786  
10              
11             our @EXPORT_OK = qw/noop/;
12              
13 14     14 1 2523 sub noop { Csistck::Test::NOOP->new(@_); };
14              
15             sub check {
16 8     8 0 8 my $self = shift;
17              
18 8 100       23 return Csistck::Test::Return->new(
19             desc => 'NOOP test',
20             msg => ($self->target) ?
21             'Set to pass' :
22             'Set to fail',
23             resp => ($self->target)
24             );
25             }
26              
27             1;
28             __END__