File Coverage

blib/lib/SyForm/Exception.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	6	10	60.0

package SyForm::Exception;
BEGIN {
  $SyForm::Exception::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT: SyForm base exception class
$SyForm::Exception::VERSION = '0.103';
use Moo;
extends 'Throwable::Error';

around throw => sub {
  my ( $orig, $class, $message, %args ) = @_;
  $class->$orig({
    message => "\n".'[SyForm Exception] '.$message, %args
  });
};

sub throw_with_args {
  my ( $class, $message ) = @_;
  $class->throw($message);
}

1;

__END__

=pod

=head1 NAME

SyForm::Exception - SyForm base exception class

=head1 VERSION

version 0.103

=head1 AUTHOR

Torsten Raudssus <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut