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
44
44
44
112
37
823
use strict;
5
44
44
44
102
35
590
use warnings;
6
44
44
44
90
36
148
use parent 'Test::Mocha::CalledOk';
7
8sub is {
9    # uncoverable pod
10
12
0
10
    my ( $class, $got, $exp ) = @_;
11
12
18
    return $got >= $exp;
12}
13
14sub stringify {
15    # uncoverable pod
16
12
0
10
    my ( $class, $exp ) = @_;
17
12
21
    return "at least $exp time(s)";
18}
19
201;