File Coverage

Bio/Prospect/Exceptions.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 35 35 100.0


line stmt bran cond sub pod time code
1             # $Id: Exceptions.pm,v 1.12 2003/11/18 19:45:45 rkh Exp $
2             # @@banner@@
3              
4             =head1 NAME
5              
6             Bio::Prospect::Exceptions -- Set of Prospect specific exceptions.
7              
8             S<$Id: Exceptions.pm,v 1.12 2003/11/18 19:45:45 rkh Exp $>
9              
10             =head1 SYNOPSIS
11              
12             =head1 DESCRIPTION
13              
14             B<Bio::Prospect::Exceptions> is a set of exceptions specifically for
15             the Prospect perl package. There excpetions are derived from
16             CBT::Exception
17              
18             =head1 SEE ALSO
19              
20             B<CBT::Exception>
21              
22             =cut
23              
24 2     2   978 use Error qw(:try);
  2         3936  
  2         18  
25 2     2   396 use strict;
  2         4  
  2         61  
26 2     2   10 use warnings;
  2         5  
  2         148  
27              
28              
29             # include this directory so that we can use CBT::Execption
30             BEGIN {
31 2     2   12 (my $thisDir = __FILE__) =~ s#Exceptions.pm$##;
32 2         57 unshift(@INC,$thisDir);
33             }
34              
35             package Bio::Prospect::Exception;
36 2     2   12 use base 'CBT::Exception';
  2         2  
  2         915  
37 2     2   11 use vars qw( $VERSION );
  2         3  
  2         137  
38             $VERSION = sprintf( "%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/ );
39              
40              
41             package Bio::Prospect::SequenceTooLarge;
42 2     2   11 use base 'Bio::Prospect::Exception';
  2         3  
  2         1182  
43              
44             package Bio::Prospect::BadUsage;
45 2     2   12 use base 'Bio::Prospect::Exception';
  2         5  
  2         947  
46              
47             package Bio::Prospect::RuntimeError;
48 2     2   12 use base 'Bio::Prospect::Exception';
  2         3  
  2         1094  
49              
50             1;