File Coverage

lib/Git/Class/Role/Error.pm

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

package Git::Class::Role::Error;

use Moo::Role;
use Carp::Clan qw/^(Git::Class|Mouse|Moose)::/;

has '_die_on_error' => (
  is       => 'rw',
#  isa      => 'Bool',
  init_arg => 'die_on_error'
);

has 'is_verbose' => (
  is       => 'rw',
#  isa      => 'Bool',
  init_arg => 'verbose',
);

has '_error' => (
  is      => 'rw',
#  isa     => 'Str|Undef',
#  reader  => '_last_error',  # Mouse doesn't support reader yet
  trigger => sub {
    my ($self, $message) = @_;
    if (defined $message && $message ne '') {
      chomp $message;
      $self->_die_on_error
        ? croak $message
        : carp  $message;
    }
  },
);

1;

__END__