File Coverage

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


line stmt bran cond sub pod time code
1             package Csistck::Test::NOOP;
2              
3 17     17   338 use 5.010;
  17         55  
  17         651  
4 17     17   85 use strict;
  17         28  
  17         497  
5 17     17   88 use warnings;
  17         26  
  17         880  
6              
7 17     17   96 use base 'Csistck::Test';
  17         31  
  17         9618  
8 17     17   118 use Csistck::Oper;
  17         28  
  17         1875  
9 17     17   115 use Csistck::Test::Return;
  17         31  
  17         2264  
10              
11             our @EXPORT_OK = qw/noop/;
12              
13 14     14 1 3669 sub noop { Csistck::Test::NOOP->new(@_); };
14              
15             sub check {
16 8     8 0 16 my $self = shift;
17              
18 8 100       35 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__