File Coverage

blib/lib/WWW/Kickstarter/Error.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	4	0.0
condition			n/a
subroutine	6	11	54.5
pod	5	5	100.0
total	29	54	53.7

package WWW::Kickstarter::Error;

use strict;
use warnings;
no autovivification;


use Exporter qw( import );
our @EXPORT_OK = qw( my_croak );


use Carp qw( );


use overload '""' => \&as_string;


$Carp::CarpInternal{ (__PACKAGE__) } = 1;

{
   my @pkgs = qw(
      WWW::Kickstarter
      WWW::Kickstarter::Data
      WWW::Kickstarter::Data::Categories
      WWW::Kickstarter::Data::Category
      WWW::Kickstarter::Data::NotificationPref
      WWW::Kickstarter::Data::Project
      WWW::Kickstarter::Data::User
      WWW::Kickstarter::Data::User::Myself
      WWW::Kickstarter::Error
      WWW::Kickstarter::HttpClient::Lwp
      WWW::Kickstarter::Iterator
      WWW::Kickstarter::JsonParser::JsonXs
   );

   my $code = join '', map "package $_; our \@CARP_NOT = \@pkgs;\n", @pkgs;
   eval $code."1" or die $@;
}


sub my_croak {
   my ($code, $message) = @_;
   die __PACKAGE__->new($code, $message);
}


sub new {
   my $class   = shift;
   my $code    = @_ > 1 ? shift : 500;
   my $message = shift;

   if (eval { $message->isa(__PACKAGE__) }) {
      return $message;
   }

   my $self = bless({}, $class);
   $self->{code   } = $code;
   $self->{message} = $message;
   $self->{trace  } = Carp::shortmess('');
   return $self;
}


sub code    { $_[0]{code} }
sub message { $_[0]{message} }

sub as_string { $_[0]{message} . $_[0]{trace} }


1;


__END__