File Coverage

lib/CallBackery/Exception.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	26	33	78.7

package CallBackery::Exception;

=head1 NAME

CallBackery::Exception - a simple exception class

=head1 SYNOPSIS

 use CallBackery::Exception qw(mkerror);

 eval { die error(22,'Bad Error'); }
 if ($@){
     print "Code: '.$@->code()." Message: ".$@->message()."\n"
     print "$@\n"; #stringified error
 }

=head1 DESCRIPTION

An error object.

Maybe use L instead.

=over

=cut

use strict;
use warnings;

use Exporter 'import';
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(mkerror);

use overload ('""' => 'stringify');


use Mojo::Base -base;
has 'code';
has 'message';



=item B(I,I)

Create an nq::Exception object, setting code and message properties in the process.

=cut

sub mkerror {
    my $code = shift;
    my $message = shift;
    # use caller() to determin where this is happening
    # somehow construct the error code from the line number ....??
    return (__PACKAGE__->new(code=>$code,message=>$message));
}

=item B

error stringification handler

=cut

sub stringify {
    my $self = shift;
    return "ERROR ".$self->code().": ".$self->message()."\n";
}

1;
__END__