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
12
12
12
30
6
33
use parent 'Test::Mocha::CalledOk';
5
12
12
12
356
10
166
use strict;
6
12
12
12
22
46
623
use warnings;
7
8sub is {
9    # uncoverable pod
10
3
0
3
    my ( $class, $got, $exp ) = @_;
11
3
4
    return $got <= $exp;
12}
13
14sub stringify {
15    # uncoverable pod
16
3
0
2
    my ( $class, $exp ) = @_;
17
3
5
    return "at most $exp time(s)";
18}
19
201;