File Coverage

blib/lib/VCS/Lite/Element/Binary.pm

Criterion	Covered	Total	%
statement	55	55	100.0
branch	7	10	70.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	72	75	96.0

package VCS::Lite::Element::Binary;

use strict;
use warnings;

our $VERSION = '0.11';

#----------------------------------------------------------------------------

use base qw/VCS::Lite::Element/;
use Carp;
use File::Spec::Functions qw/:ALL !path/;
use Params::Validate qw(:all);

our @CARP_NOT = qw/VCS::Lite::Element/;

#----------------------------------------------------------------------------

sub new {
    my $pkg  = shift;
    my $name = shift;
    my %args = validate ( @_,
        {
            store       => 0,   # Handled by SUPER::new
            verbose     => 0,
            recordsize  => { type => SCALAR, default => 128 },
        } );
    $pkg->SUPER::new($name,%args);
}

sub _slurp_lite {
    my $self = shift;
    my $name = shift;
    my $recsiz = $self->{recordsize};

    my $in;

    open $in,'<',$name or croak "$name: $!";
    binmode $in;
    my @fil;
    my $buff;
    while (sysread($in,$buff,$recsiz)) {
       push @fil,$buff;
    }
    VCS::Lite->new($name,undef,\@fil);
}

sub _contents {
    my $self = shift;

    my $recsiz = $self->{recordsize};
    my $bin = $self->{store}->store_path($self->path,'vbin');
    my $cont;
    if (@_) {
        $cont = shift;
        my $out;
        open $out,'>',$bin or croak "$bin: $!";
        binmode $out;
        for (@$cont) {
            my $str = pack 'n',length $_;
            syswrite($out,$str.$_);
        }
    } else {
        return [] unless -f $bin;
        my $in;

        open $in,'<',$bin or croak "$bin: $!";
        binmode $in;
        my @fil;
        my $buff;
        while (sysread($in,$buff,2)) {
            my $rsz = unpack 'n',$buff;
            sysread($in,$buff,$rsz);
            push @fil,$buff;
        }
        $cont = \@fil;
    }
    $cont;
}

1; #this line is important and will help the module return a true value

__END__