File Coverage

lib/Haineko/JSON.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	2	2	100.0
condition	6	9	66.6
subroutine	9	10	90.0
pod	3	4	75.0
total	53	59	89.8

package Haineko::JSON;
use feature ':5.10';
use strict;
use warnings;
use Carp;
use IO::File;
use JSON::Syck;

sub loadfile {
    my $class = shift;
    my $argvs = shift // return undef;

    return undef unless -f -r -s $argvs;

    my $filehandle = IO::File->new( $argvs, 'r' ) || croak $!;
    my $jsonstring = do { local $/; <$filehandle> };
    $filehandle->close;

    return JSON::Syck::Load( $jsonstring );
}

sub dumpfile {
    # Not implemented yet
}

sub loadjson {
    my $class = shift;
    my $argvs = shift // return undef;;

    return JSON::Syck::Load( $argvs );
}

sub dumpjson {
    my $class = shift;
    my $argvs = shift // return undef;

    return JSON::Syck::Dump( $argvs );
}

1;
__END__