File Coverage

blib/lib/Tie/Handle/SkipHeader.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	27	29	93.1

use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }

package Tie::Handle::SkipHeader;
# ABSTRACT: Tied handle that hides an RFC822-style header

our $VERSION = '0.004';

use Tie::Handle::Offset;
our @ISA = qw/Tie::Handle::Offset/;

sub TIEHANDLE
{
  my $class = shift;
  pop if ref $_[-1] eq 'HASH'; # we don't take any arguments
  return $class->SUPER::TIEHANDLE(@_);
}

# read to blank/whitespace line and set offset right after
sub OPEN
{
  my $self = shift;
  my $rc = $self->SUPER::OPEN(@_);
  while ( my $line = <$self> ) {
    last if $line =~ /\A\s*\Z/;
  }
  $self->offset( tell($self) );
  return $rc;
}

1;


# vim: ts=2 sts=2 sw=2 et:

__END__