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

##############################################################################
#
#  Exception::Sink::Class
#  (c) Vladi Belperchinov-Shabanski "Cade" 2006-2010
#
#  http://cade.datamax.bg
#
##############################################################################
#
#  sink exception class
#
##############################################################################
package Exception::Sink::Class;
use Exception::Sink;
use overload ( '""' => 'stringify' );
use strict;

##############################################################################

sub new
{
  my $class = shift;
  $class = ref( $class ) || $class;
  my $self = { @_ };
  bless $self, $class;
  return $self;
}

sub stringify
{
  my $self = shift;
  return $self->{ 'ORG' };
}

1;
###EOF########################################################################