Data::Handle::Exception - Super-light Weight Dependency Free Exception base.
use Data::Handle::Exception; Data::Handle::Exception->generate_exception( 'Foo::Bar' => 'A Bar error occurred :(' )->throw();
Data::Handle's primary goal is to be somewhat "Infrastructural" in design, much like Package::Stash is, being very low-level, and doing one thing, and doing it well, solving an issue with Perl's native implementation.
The idea is for more complex things to use this, instead of this using more complex things.
As such, a dependency on something like Moose would be overkill, possibly even detrimental to encouraging the use of this module.
So we've scrimped and gone really cheap ( for now at least ) in a few places to skip adding downstream dependencies, so this module is a slightly nasty but reasonably straight forward exception class.
The actual Exception classes don't actually have their own sources, they're automatically generated when
Data::Handle::Exception is loaded. And we have some really nice backtraces stolen from Carp's code, with some sexy colored formatting. See "stringify" for details.
my @stack; my $i = Data::Handle::Exception->new( $messageString, \@stack );
Data::Handle::Exception->new( $messageString, \@stack )->throw();
Turns this stacktrace into a string.
$exception->stringify(); my $str = "hello " . $exception . " world";
If you have a colored terminal, then Term::ANSIColor is used to highlight lines based on how likely they are to be relevant to diagnosis.
- Green - From Data::Handle and is likely to be "safe", its where the error is being reported from, so its useful information, but the problem is probably elsewhere.
- Yellow - Sources we're confident its unlikely to be a source of problems, currently
- White - Everything Else, the place the problem is most likely to be.
Kent Fredric <firstname.lastname@example.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Kent Fredric <email@example.com>.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.