File Coverage

lib/Unexpected/TraitFor/StringifyingError.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	29	29	100.0

package Unexpected::TraitFor::StringifyingError;

use namespace::autoclean;

use Unexpected::Functions qw( inflate_placeholders parse_arg_list );
use Unexpected::Types     qw( ArrayRef Bool Str );
use Moo::Role;

requires qw( BUILD );

# Object attributes (public)
has 'args'  => is => 'ro', isa => ArrayRef, default => sub { [] };

has 'error' => is => 'ro', isa => Str, default => 'Unknown error';

has 'no_quote_bind_values' => is => 'ro', isa => Bool, default => 0;

# Construction
around 'BUILDARGS' => sub {
   my ($orig, $self, @args) = @_; my $attr = parse_arg_list( @args );

   my $e = delete $attr->{error};

   $e and ref $e eq 'CODE' and $e = $e->( $self, $attr );
   $e and $e .= q() and chomp $e;
   $e and $attr->{error} = $e;
   return $attr;
};

after 'BUILD' => sub {
   # Fixes 98c94be8-d01e-11e2-8bc5-3f0fbdbf7481 WTF? Stringify fails.
   # Bug only happens when Moose class inherits from Moo class which
   # uses overload string. Moose class inherits from Moose class which
   # has consumed a ::Role::WithOverloading works. Moo inherits from
   # Moo also works
   my $self = shift; $self->as_string; return;
};

# Public methods
sub as_boolean {
   return 1;
}

sub as_string { # Stringifies the error and inflates the placeholders
   my $self = shift; my $e = $self->error;

   0 > index $e, '[_' and return "${e}\n";

   my $opts = [ '[?]', '[]', $self->no_quote_bind_values ];

   return inflate_placeholders( $opts, $e, @{ $self->args } )."\n";
}

1;

__END__