File Coverage

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

Criterion	Covered	Total	%
statement	22	23	95.6
branch	3	6	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	36	88.8

package Statistics::R::IO::RData;
# ABSTRACT: Supply object methods for RData files
$Statistics::R::IO::RData::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;

    if (substr($data, 0, 5) ne "RDX2\n") {
        croak 'File does not start with the RData magic number: ' .
            unpack('H*', substr($data, 0, 5));
    }

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


1;

__END__