File Coverage

blib/lib/Carp/Heavy.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Carp::Heavy;
2              
3 2     2   1074 use Carp ();
  2         4  
  2         245  
4              
5             our $VERSION = '1.38';
6             $VERSION =~ tr/_//d;
7              
8             # Carp::Heavy was merged into Carp in version 1.12. Any mismatched versions
9             # after this point are not significant and can be ignored.
10             if(($Carp::VERSION || 0) < 1.12) {
11             my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef";
12             die "Version mismatch between Carp $cv ($INC{q(Carp.pm)}) and Carp::Heavy $VERSION ($INC{q(Carp/Heavy.pm)}). Did you alter \@INC after Carp was loaded?\n";
13             }
14              
15             1;
16              
17             # Most of the machinery of Carp used to be here.
18             # It has been moved in Carp.pm now, but this placeholder remains for
19             # the benefit of modules that like to preload Carp::Heavy directly.
20             # This must load Carp, because some modules rely on the historical
21             # behaviour of Carp::Heavy loading Carp.