view release on metacpan or  search on metacpan

lib/Broadworks/OCIP/Throwable.pm  view on Meta::CPAN

package Broadworks::OCIP::Throwable;

# ABSTRACT: Exception throwing for Broadworks::OCIP

use strict;
use warnings;
use utf8;
use namespace::autoclean;

our $VERSION = '0.09'; # VERSION
our $AUTHORITY = 'cpan:NIGELM'; # AUTHORITY

use Moose;
extends 'Throwable::Error';


# ------------------------------------------------------------------------

has execution_phase => (
    is      => 'ro',
    isa     => 'Str',
    default => 'unknown',
);

has error_code => (
    is      => 'ro',
    isa     => 'Str',
    default => 'error',
);

# ------------------------------------------------------------------------


around _build_stack_trace_args => sub {
    my ( $orig, $self, @rest ) = @_;
    my $args_array = $self->$orig(@rest);
    push( @{$args_array}, no_refs => 1 );
    return $args_array;
};

# ------------------------------------------------------------------------
__PACKAGE__->meta->make_immutable;
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Broadworks::OCIP::Throwable - Exception throwing for Broadworks::OCIP

=head1 VERSION

version 0.09

=for test_synopsis 1;
__END__

=for stopwords NIGELM

=for Pod::Coverage mvp_multivalue_args

=head1 SYNOPSIS

  use Broadworks::OCIP::Throwable;