File Coverage

blib/lib/CPAN/Testers/WWW/Reports/Parser/JSON.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	5	6	83.3
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	50	51	98.0

package CPAN::Testers::WWW::Reports::Parser::JSON;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '0.06';

#----------------------------------------------------------------------------
# Library Modules

use JSON::XS;

#----------------------------------------------------------------------------
# The Application Programming Interface

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub DESTROY {
    my $self = shift;
}

# full data set methods

sub register {
    my $self = shift;
    my %hash = @_;
    $self->{file} = $hash{file};
    $self->{data} = $hash{data};
}

sub raw_data {
    my $self = shift;
    $self->{data} = $self->_load_file($self->{file})  if($self->{file});
    return decode_json($self->{data});
}

sub _load_file {
    my ($self,$file) = @_;
    my $fh;

    if (ref $file eq 'GLOB') {
        $fh = $file;
        seek($fh,0,0);
    } else {
        open $fh, '<', $file     or die "Cannot open file [$file]: $!\n";
    }
    return do { local $/; <$fh> };
}

q{ Is all that we or seem, but a dream within a dream ? };

__END__