| Server IP : 78.140.185.180 / Your IP : 3.149.249.124 Web Server : LiteSpeed System : Linux cpanel13.v.fozzy.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64 User : builderbox ( 1072) PHP Version : 7.3.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/share/perl5/vendor_perl/Specio/ |
Upload File : |
package Specio::Exception;
use strict;
use warnings;
use overload
q{""} => 'as_string',
fallback => 1;
our $VERSION = '0.42';
use Devel::StackTrace;
use Scalar::Util qw( blessed );
use Specio::OO;
{
my $attrs = {
message => {
isa => 'Str',
required => 1,
},
type => {
does => 'Specio::Constraint::Role::Interface',
required => 1,
},
value => {
required => 1,
},
stack_trace => {
init_arg => undef,
},
};
## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _attrs {
return $attrs;
}
}
sub BUILD {
my $self = shift;
$self->{stack_trace}
= Devel::StackTrace->new( ignore_package => __PACKAGE__ );
return;
}
sub as_string {
my $self = shift;
my $str = $self->message;
$str .= "\n\n" . $self->stack_trace->as_string;
return $str;
}
sub throw {
my $self = shift;
die $self if blessed $self;
die $self->new(@_);
}
__PACKAGE__->_ooify;
1;
# ABSTRACT: An exception class for type constraint failures
__END__
=pod
=encoding UTF-8
=head1 NAME
Specio::Exception - An exception class for type constraint failures
=head1 VERSION
version 0.42
=head1 SYNOPSIS
use Try::Tiny;
try {
$type->validate_or_die($value);
}
catch {
if ( $_->isa('Specio::Exception') ) {
print $_->message, "\n";
print $_->type->name, "\n";
print $_->value, "\n";
}
};
=head1 DESCRIPTION
This exception class is thrown by Specio when a type check fails. It emulates
the L<Throwable::Error> API, but doesn't use that module to avoid adding a
dependency on L<Moo>.
=for Pod::Coverage BUILD throw
=head1 API
This class provides the following methods:
=head2 $exception->message
The error message associated with the exception.
=head2 $exception->stack_trace
A L<Devel::StackTrace> object for the exception.
=head2 $exception->type
The type constraint object against which the value failed.
=head2 $exception->value
The value that failed the type check.
=head2 $exception->as_string
The exception as a string. This includes the method and the stack trace.
=head1 OVERLOADING
This class overloads stringification to call the C<as_string> method.
=head1 SUPPORT
Bugs may be submitted at L<https://github.com/houseabsolute/Specio/issues>.
I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>.
=head1 SOURCE
The source code repository for Specio can be found at L<https://github.com/houseabsolute/Specio>.
=head1 AUTHOR
Dave Rolsky <autarch@urth.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2012 - 2017 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
The full text of the license can be found in the
F<LICENSE> file included with this distribution.
=cut