File Coverage

blib/lib/Statistics/R/IO/RDS.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	30	32	93.7

package Statistics::R::IO::RDS;
# ABSTRACT: Supply object methods for RDS files
$Statistics::R::IO::RDS::VERSION = '1.0001';
use 5.010;

use Class::Tiny::Antlers;

extends 'Statistics::R::IO::Base';

use Statistics::R::IO::REXPFactory;
use Carp;

use namespace::clean;


sub read {
    my $self = shift;

    my $data = $self->_read_and_uncompress;

    my ($value, $state) = @{Statistics::R::IO::REXPFactory::unserialize($data)};
    croak 'Could not parse RDS file' unless $state;
    croak 'Unread data remaining in the RDS file' unless $state->eof;
    $value
}


1;

__END__