File Coverage

blib/lib/MetaPOD/Exception/Decode/Data.pm

Criterion	Covered	Total	%
statement	11	12	91.6
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	15	17	88.2

use 5.006;    # our
use strict;
use warnings;

package MetaPOD::Exception::Decode::Data;

our $VERSION = 'v0.4.0';

# ABSTRACT: Failures with decoding source data

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Moo qw( has extends );













extends 'MetaPOD::Exception';







has 'data' => ( is => ro =>, required => 1, );







has 'internal_message' => ( is => ro =>, required => 1, );

has '+message' => (
  is      => ro =>,
  lazy    => 1,
  builder => sub {
    return "While decoding:\n" . $_[0]->data . "\n Got: " . $_[0]->internal_message;
  },
);

1;

__END__