File Coverage

blib/lib/JSON/Pointer/Exception.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	13	13	100.0
pod	7	7	100.0
total	47	47	100.0

package JSON::Pointer::Exception;

use 5.008_001;
use strict;
use warnings;
use overload (
    q|""| => "to_string"
);

use Carp ();
use Exporter qw(import);

our $VERSION = '0.07';
our @EXPORT_OK = qw(
   ERROR_INVALID_POINTER_SYNTAX
   ERROR_POINTER_REFERENCES_NON_EXISTENT_VALUE
);

our %EXPORT_TAGS = (
    all => [ @EXPORT_OK ],
);

sub ERROR_INVALID_POINTER_SYNTAX                 { 1; }
sub ERROR_POINTER_REFERENCES_NON_EXISTENT_VALUE  { 2; }

our %MESSAGE_BUNDLES = (
    ERROR_INVALID_POINTER_SYNTAX()
        => "Invalid pointer syntax (pointer: %s)",
    ERROR_POINTER_REFERENCES_NON_EXISTENT_VALUE()
        => "A pointer that references a non-existent value (pointer: %s)",
);

sub new {
    my ($class, %opts) = @_;
    $opts{context}->last_error($opts{code});
    bless {
        code    => $opts{code},
        context => $opts{context},
    } => $class
}

sub throw {
    Carp::croak(shift->new(@_));
}

sub code {
    shift->{code};
}

sub context {
    shift->{context};
}

sub to_string {
    my $self = shift;
    sprintf($MESSAGE_BUNDLES{$self->{code}}, $self->{context}{pointer});
}

1;
__END__