File Coverage

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

linestmtbrancondsubpodtimecode
1package Test::Mocha::CalledOk::AtLeast;
2# ABSTRACT: Concrete subclass of CalledOk for verifying methods called 'atleast' number of times
3$Test::Mocha::CalledOk::AtLeast::VERSION = '0.61';
4
24
24
24
57
21
52
use parent 'Test::Mocha::CalledOk';
5
24
24
24
757
17
342
use strict;
6
24
24
24
44
19
1293
use warnings;
7
8sub is {
9    # uncoverable pod
10
6
0
6
    my ( $class, $got, $exp ) = @_;
11
6
9
    return $got >= $exp;
12}
13
14sub stringify {
15    # uncoverable pod
16
6
0
6
    my ( $class, $exp ) = @_;
17
6
12
    return "at least $exp time(s)";
18}
19
201;