File Coverage

lib/Archive/Lha/Stream/File.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch	2	4	50.0
condition			n/a
subroutine	10	11	90.9
pod	6	6	100.0
total	47	53	88.6

package Archive::Lha::Stream::File;

use strict;
use warnings;
use Carp;
use Fcntl qw( :flock :seek );
use base qw( Archive::Lha::Stream::Base );

sub open {
  my ($self, %options) = @_;

  open my $fh, '<:raw', $options{file}
    or croak "Can't open $options{file}: $!";
  flock $fh, LOCK_SH
    or croak "Can't lock $options{file}: $!";
  binmode $fh;

  $self->{fh} = $fh;
}

sub close {
  my $self = shift;

  close $self->{fh};

  delete $self->{fh};
}

sub eof {
  my $self = shift;

  eof $self->{fh};
}

sub seek {
  my ($self, $offset) = @_;

  seek $self->{fh}, $offset, SEEK_SET;
}

sub tell {
  my ($self, $offset) = @_;

  tell $self->{fh};
}

sub read {
  my ($self, $length) = @_;

  read $self->{fh}, ( my $chunk ), $length;

  return $chunk;
}

1;

__END__