Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
Constraint	[ DIR ]	drwxr-xr-x
Library	[ DIR ]	drwxr-xr-x
Role	[ DIR ]	drwxr-xr-x
Coercion.pm	8.12 KB	-rw-r--r--
Declare.pm	18.63 KB	-rw-r--r--
DeclaredAt.pm	3.12 KB	-rw-r--r--
Exception.pm	2.88 KB	-rw-r--r--
Exporter.pm	3.76 KB	-rw-r--r--
Helpers.pm	3.1 KB	-rw-r--r--
OO.pm	9.3 KB	-rw-r--r--
PartialDump.pm	5.76 KB	-rw-r--r--
Registry.pm	2.13 KB	-rw-r--r--
Subs.pm	6.37 KB	-rw-r--r--
TypeChecks.pm	1.91 KB	-rw-r--r--

Code Editor : Exception.pm

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;

# 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 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

${this.title}

Code Editor : Exception.pm