File Coverage

blib/lib/Test/Mocha/CalledOk/AtMost.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 100.0
total 18 20 100.0


line stmt bran cond sub pod time code
1             package Test::Mocha::CalledOk::AtMost;
2             # ABSTRACT: Concrete subclass of CalledOk for verifying methods called 'atmost' number of times
3             $Test::Mocha::CalledOk::AtMost::VERSION = '0.67';
4 13     13   90 use parent 'Test::Mocha::CalledOk';
  13         28  
  13         81  
5 13     13   805 use strict;
  13         26  
  13         255  
6 13     13   62 use warnings;
  13         32  
  13         1535  
7              
8             sub is {
9             # uncoverable pod
10 6     6 0 26 my ( $class, $got, $exp ) = @_;
11 6         16 return $got <= $exp;
12             }
13              
14             sub stringify {
15             # uncoverable pod
16 6     6 0 15 my ( $class, $exp ) = @_;
17 6         23 return "at most $exp time(s)";
18             }
19              
20             1;