File Coverage

blib/lib/Exception/Sink/Class.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition 0 3 0.0
subroutine 3 5 60.0
pod 0 2 0.0
total 12 26 46.1


line stmt bran cond sub pod time code
1             ##############################################################################
2             #
3             # Exception::Sink::Class
4             # (c) Vladi Belperchinov-Shabanski "Cade" 2006-2010
5             #
6             # http://cade.datamax.bg
7             #
8             ##############################################################################
9             #
10             # sink exception class
11             #
12             ##############################################################################
13             package Exception::Sink::Class;
14 1     1   4 use Exception::Sink;
  1         2  
  1         31  
15 1     1   1531 use overload ( '""' => 'stringify' );
  1         1038  
  1         5  
16 1     1   88 use strict;
  1         1  
  1         118  
17              
18             ##############################################################################
19              
20             sub new
21             {
22 0     0 0   my $class = shift;
23 0   0       $class = ref( $class ) || $class;
24 0           my $self = { @_ };
25 0           bless $self, $class;
26 0           return $self;
27             }
28              
29             sub stringify
30             {
31 0     0 0   my $self = shift;
32 0           return $self->{ 'ORG' };
33             }
34              
35             1;
36             ###EOF########################################################################
37