File Coverage

blib/lib/Flexconf/Json.pm

Criterion	Covered	Total	%
statement	3	16	18.7
branch	0	4	0.0
condition			n/a
subroutine	1	5	20.0
pod	0	4	0.0
total	4	29	13.7

package Flexconf::Json;

use JSON::MaybeXS;

sub parse {
  return decode_json shift;
}

sub stringify {
  return encode_json shift;
}

sub load {
   my ( $filepath ) = @_;
   local $/;
   open FH, "<", $filepath or return undef;
   my $conf = ;
   $conf = decode_json $conf;
   close FH;
   $conf;
}

sub save {
   my ( $filepath, $conf ) = @_;
   open FH, ">", $filepath or die("Could not open file. $!");
   print FH encode_json $conf;
   close FH;
}

1;