File Coverage

blib/lib/Bot/Cobalt/Error.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch			n/a
condition	4	5	80.0
subroutine	14	15	93.3
pod	7	8	87.5
total	65	69	94.2

package Bot::Cobalt::Error;
$Bot::Cobalt::Error::VERSION = '0.021001';
use v5.10;
use strictures 2;

use Devel::StackTrace;

use overload
  bool     => sub { 1 },
  '""'     => 'string',
  fallback => 1 ;


sub TRACE () { 0 }
sub ARRAY () { 1 }

sub __new_trace {
  Devel::StackTrace->new(
    ignore_class => __PACKAGE__,
    no_refs      => 1,
  )
}

sub new {
  my $class = shift;
  my $trace = $class->__new_trace;
  bless [
    $trace,    ## TRACE
    [ @_ ],    ## ARRAY
  ], ref $class || $class
}

sub trace {
  my ($self) = @_;
  $self->[TRACE]
}

sub _set_trace {
  my ($self, $trace) = @_;
  $self->[TRACE] = $trace;
  $self
}

sub throw {
  my ($self) = @_;
  die $self->_set_trace( $self->__new_trace )
}

sub string {
  join '', map { "$_" } @{ $_[0]->[ARRAY] }
}

sub push {
  my $self = shift;
  push @{ $self->[ARRAY] }, @_;
  $self
}

sub unshift {
  my $self = shift;
  unshift @{ $self->[ARRAY] }, @_;
  $self
}

sub slice {
  my $self = shift;
  $self->new( @{ $self->[ARRAY] }[@_] )
}

sub join {
  my ($self, $delim) = @_;
  $self->new( join($delim //= ' ', map { "$_" } @{ $self->[ARRAY] }) )
}


1;
__END__