/ 
Throwable-Factory-0.007
River stage one • 3 direct dependents • 3 total dependents
/ Throwable::Factory

NAME

Throwable::Factory - lightweight Moo-based exception class factory

SYNOPSIS

use Throwable::Factory
   GeneralException => undef,
   FileException    => [qw( $filename )],
   NetworkException => [qw( $remote_addr $remote_port )],
;

# Just a message...
#
GeneralException->throw("Something bad happened");

# Or use named parameters...
#
GeneralException->throw(message => "Something awful happened");

# The message can be a positional parameter, even while the
# rest are named.
#
FileException->throw(
   "Can't open file",
   filename => '/tmp/does-not-exist.txt',
);

# Or, they all can be a positional using an arrayref...
#
NetworkException->throw(["Timed out", "11.22.33.44", 555]);

DESCRIPTION

Throwable::Factory is an Exception::Class-like exception factory using MooX::Struct.

All exception classes built using Throwable::Factory are MooX::Struct structs, but will automatically include a message attribute, will compose the Throwable and StackTrace::Auto roles, and contain the following convenience methods:

error

Read-only alias for the message attribute/field.

package

Get the package for the first frame on the stack trace.

file

Get the file name for the first frame on the stack trace.

line

Get the line number for the first frame on the stack trace.

They provide a BUILDARGS method which means that if their constructor is called with an odd number of arguments, the first is taken to be the message, and the rest named parameters.

Additionally, the factory can be called with Exception::Class-like hashrefs to describe the exception classes. The following two definitions are equivalent:

# MooX::Struct-style
use Throwable::Factory FooBar => [
   -extends => ['Foo'],
   qw( foo bar ),
];

# Exception::Class-style
use Throwable::Factory FooBar => {
   isa    => 'Foo',
   fields => [qw( foo bar )],
};

Exception Taxonomy

It can be useful to divide your exceptions into broad categories to allow your caller to catch great swathes of exceptions easily, including new exceptions you add in future versions of your module.

Throwable::Factory includes three exception categories that you may use for this purpose. These are implemented as role packages with no associated methods, so can be tested for using the DOES method (see UNIVERSAL).

  • Throwable::Taxonomy::Caller - the caller passed bad or unexpected parameters.

  • Throwable::Taxonomy::Environment - a problem was found in the software's operating environment; e.g. network connection unavailable, lack of disk space.

  • Throwable::Taxonomy::NotImplemented - the caller requested a feature that is not currently implemented, but may be in the future.

It is easy to apply these roles to your exception classes:

use Throwable::Factory
   ErrTooBig   => [qw( $maximum! -notimplemented )],
   ErrTooSmall => [qw( $minimum! -notimplemented )],
;
use Try::Tiny::ByClass;

sub calculation
{
   my $input = shift;
   if ($input > 12) {
      ErrTooBig->throw(
         "Inputs over 12 are not currently supported",
         maximum => 12,
      );
   }
   ...;
}

try {
   calculation(13);
}
catch_case [
   +ErrTooBig                            => sub { warn "Too big!" },
   +ErrTooSmall                          => sub { warn "Too small!" },
   "Throwable::Taxonomy::NotImplemented" => sub { warn $_ },
];

The -notimplemented shortcut expands to -with => ['Throwable::Taxonomy::NotImplemented']. Similarly -caller and -environment shortcuts exist.

(Note the plus signs in the catch_case above; this ensures ErrTooBig and ErrToString are not auto-quoted by the fat comma.)

CAVEATS

Exceptions built by this factory inherit from MooX::Struct; see the CAVEATS section from the MooX::Struct documentation.

BUGS

Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=Throwable-Factory.

SEE ALSO

Exceptions built by this factory inherit from MooX::Struct and compose the Throwable and StackTrace::Auto roles.

This factory is inspired by Exception::Class, and for simple uses should be roughly compatible.

Use Try::Tiny, Try::Tiny::ByClass or TryCatch if you need a try/catch mechanism.

AUTHOR

Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

This software is copyright (c) 2012-2013 by Toby Inkster.

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

DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.