File Coverage

lib/MetaPOD/Exception/Decode/Data.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	22	90.9

use 5.008;    # utf8
use strict;
use warnings;
use utf8;

package MetaPOD::Exception::Decode::Data;
$MetaPOD::Exception::Decode::Data::VERSION = '0.3.6';
# 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__