File Coverage

blib/lib/Test/Valgrind/Carp.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition 1 2 50.0
subroutine 3 3 100.0
pod n/a
total 14 15 93.3


line stmt bran cond sub pod time code
1             package Test::Valgrind::Carp;
2              
3 10     10   65 use strict;
  10         12  
  10         257  
4 10     10   43 use warnings;
  10         44  
  10         992  
5              
6             =head1 NAME
7              
8             Test::Valgrind::Carp - Carp-like private methods for Test::Valgrind objects.
9              
10             =head1 VERSION
11              
12             Version 1.17
13              
14             =cut
15              
16             our $VERSION = '1.17';
17              
18             =head1 DESCRIPTION
19              
20             This class only provides a C<_croak> method that lazily requires L and then croaks with the supplied message.
21              
22             The class should not be used outside from L and may be removed without notice.
23              
24             =cut
25              
26             sub _croak {
27 13     13   26 shift;
28 13         167 require Carp;
29 13   50     132 local $Carp::CarpLevel = ($Carp::CarpLevel || 0) + 1;
30 13         4775 Carp::croak(@_);
31             }
32              
33             =head1 SEE ALSO
34              
35             L.
36              
37             =head1 AUTHOR
38              
39             Vincent Pit, C<< >>, L.
40              
41             You can contact me by mail or on C (vincent).
42              
43             =head1 BUGS
44              
45             Please report any bugs or feature requests to C, or through the web interface at L.
46             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
47              
48             =head1 SUPPORT
49              
50             You can find documentation for this module with the perldoc command.
51              
52             perldoc Test::Valgrind::Carp
53              
54             =head1 COPYRIGHT & LICENSE
55              
56             Copyright 2009,2010,2011,2013,2015 Vincent Pit, all rights reserved.
57              
58             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
59              
60             =cut
61              
62             1; # End of Test::Valgrind::Carp