File Coverage

blib/lib/Exception/Reporter/Sender.pm
Criterion Covered Total %
statement 6 9 66.6
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1 1     1   302 use strict;
  1         1  
  1         20  
2 1     1   3 use warnings;
  1         1  
  1         70  
3             package Exception::Reporter::Sender;
4             # ABSTRACT: a thing that sends exception reports
5             $Exception::Reporter::Sender::VERSION = '0.013';
6             #pod =head1 OVERVIEW
7             #pod
8             #pod This class exists almost entirely to allow C-checking. It provides a
9             #pod C method that returns a blessed, empty object. Passing it any parameters
10             #pod will cause an exception to be thrown.
11             #pod
12             #pod =cut
13              
14             sub new {
15 0     0 0   my $class = shift;
16              
17 0 0         Carp::confess("$class constructor does not take any parameters") if @_;
18              
19 0           return bless {}, $class;
20             }
21              
22             1;
23              
24             __END__