Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
Constraint	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
Library	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
Role	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
Coercion.pm	8.05 KB	-rw-r--r--	2022-06-11 16:32
Declare.pm	17.44 KB	-rw-r--r--	2022-06-11 16:32
DeclaredAt.pm	3.05 KB	-rw-r--r--	2022-06-11 16:32
Exception.pm	2.81 KB	-rw-r--r--	2022-06-11 16:32
Exporter.pm	3.69 KB	-rw-r--r--	2022-06-11 16:32
Helpers.pm	3.46 KB	-rw-r--r--	2022-06-11 16:32
OO.pm	10.26 KB	-rw-r--r--	2022-06-11 16:32
PartialDump.pm	5.43 KB	-rw-r--r--	2022-06-11 16:32
Registry.pm	2.06 KB	-rw-r--r--	2022-06-11 16:32
Subs.pm	6.33 KB	-rw-r--r--	2022-06-11 16:32
TypeChecks.pm	1.83 KB	-rw-r--r--	2022-06-11 16:32

Rename

package Specio::Exception;

use strict;
use warnings;

use overload
    q{""}    => 'as_string',
    fallback => 1;

our $VERSION = '0.48';

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.48

=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>.

=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