File Coverage

File:blib/lib/Test/Mocha/CalledOk/AtMost.pm
Coverage:100.0%

linestmtbrancondsubpodtimecode
1package 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.61';
4
44
44
44
105
38
801
use strict;
5
44
44
44
100
44
584
use warnings;
6
44
44
44
91
197
102
use parent 'Test::Mocha::CalledOk';
7
8sub is {
9    # uncoverable pod
10
12
0
13
    my ( $class, $got, $exp ) = @_;
11
12
14
    return $got <= $exp;
12}
13
14sub stringify {
15    # uncoverable pod
16
12
0
9
    my ( $class, $exp ) = @_;
17
12
21
    return "at most $exp time(s)";
18}
19
201;