File Coverage

blib/lib/Data/Phrasebook/Loader/JSON/Syck.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	12	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	49	55	89.0

package Data::Phrasebook::Loader::JSON::Syck;

use strict;
use warnings;

use Carp        'croak';
use JSON::Syck  ();
use File::Slurp ();

use Data::Phrasebook;

our $VERSION = '0.01';

use base 'Data::Phrasebook::Loader::Base';

sub load {
    my ($class, $filename) = @_;
    (defined $filename)
        || croak "No file given as argument!";
    (-e $filename)
        || croak "The file given '$filename' could not be found";
    my $json = File::Slurp::slurp($filename) or croak "Could not slurp JSON file '$filename' got no data";
    my $d    = JSON::Syck::Load($json);
    (ref($d) eq 'HASH')
        || croak "Badly formatted JSON file '$filename'";
	$class->{JSON} = $d;
}

sub get {
	my ($class, $key) = @_;
	return undef unless $key;
	return undef unless $class->{JSON};
	$class->{JSON}->{$key};
}

#sub dicts    { return () }
#sub keywords { return () }

1;

__END__