File Coverage

File:t/03-error-handling.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!perl
2
3
1
1
1
47903
4
87
use strict;
4
1
1
1
4
1
42
use warnings;
5
6
1
1
1
623
69774
10
use Test::More tests => 4;
7
8
1
1
1
9671
3
75
use Util::Underscore;
9
10
1
411803
for my $sub (qw/carp cluck croak confess/) {
11
1
1
1
5
2
1818
    no strict 'refs';
12
4
4
4
11725
28
24
    ok \&{"_::$sub"} == \&{"Carp::$sub"}, "_::$sub == Carp::$sub";
13}