package Error::Pure::JSON;
use base qw(Exporter);
use strict;
use warnings;
use Error::Pure::Output::JSON qw(err_json);
use Error::Pure::Utils qw(err_helper);
use List::MoreUtils qw(none);
use Reado'
&& none { $_ eq $EVAL || $_ =~ /^eval '/ms }
map { $_->{'sub'} } @{$stack_ar}) {
die err_json(\@errors)."\n";
# Die for eval.
} else {
my $e = $errors[-1]->{'msg'}->[0];
if (! defined
__END__
=pod
=encoding utf8
=head1 NAME
Error::Pure::JSON - Error::Pure module for JSON output.
=head1 SYNOPSIS
use Error::Pure::JSON qw(err);
err 'This is a fatal error', 'name', 'value';
package Error::Pure::JSON::Advance;
use base qw(Exporter);
use strict;
use warnings;
use Error::Pure::Output::JSON qw(err_json);
use Error::Pure::Utils qw(err_helper);
use List::MoreUtils qw(none);
};
}
die err_json($err_hr)."\n";
# Die for eval.
} else {
die "$errors[-1]->{'msg'}->[0]\n";
}
return;
}
1;
__END__
=pod
=encoding utf8
=head1 NAME
Error::Pure::JSON::Advance - Error::Pure module for JSON output with additional parameters.
=head1 SYNOPSIS
use Error::Pure::JSON::Advance qw(err);
err 'This is a fatal error', 'name', 'value';
=head1 SUBROUTINES
=over 8
=item