File Coverage

blib/lib/Pipeline/Error/Construction.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Pipeline::Error::Construction;
2              
3 16     16   93 use strict;
  16         30  
  16         1200  
4              
5 16     16   135 use Error;
  16         29  
  16         86  
6 16     16   763 use base qw( Error );
  16         26  
  16         4075  
7              
8             our $VERSION = "3.12";
9              
10             sub new {
11 2     2 1 26 my $class = shift;
12              
13 2         6 my $caller = caller(1);
14 2         7 my $text = "cannot create object of type $caller";
15              
16 2         3 local $Error::Depth = $Error::Depth + 1;
17 2         4 local $Error::Debug = 1; # Enables storing of stacktrace
18              
19 2         22 $class->SUPER::new(-text => $text, @_);
20             }
21              
22             1;
23              
24              
25             =head1 NAME
26              
27             Pipeline::Error::Construction - exception thrown during object construction failure
28              
29             =head1 SYNOPSIS
30              
31             use Pipeline::Error::Construction;
32            
33             throw Pipeline::Error::Construction;
34            
35             =head1 DESCRIPTION
36              
37             C inherits from C and will be thrown by
38             any constructor in the Pipeline module that fails to properly assemble itself.
39              
40             =head1 SEE ALSO
41              
42             C C
43              
44             =head1 AUTHOR
45              
46             James A. Duncan
47              
48             =head1 COPYRIGHT
49              
50             Copyright 2003 Fotango Ltd. All Rights Reserved.
51              
52             This module is released under the same license as Perl itself.
53              
54             =cut
55