File Coverage

blib/lib/App/TimelogTxt/File.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	13	16	81.2
condition	9	9	100.0
subroutine	4	4	100.0
pod	2	2	100.0
total	51	56	91.0

package App::TimelogTxt::File;

use warnings;
use strict;

our $VERSION = '0.21';

sub new {
    my ($class, $fh, $start, $end) = @_;

    die "Missing required file handle or file name.\n" unless defined $fh;
    die "Missing required start marker.\n" unless defined $start;
    die "Missing required end marker.\n" unless defined $end;
    if( !ref $fh ) {
        my $name = $fh;
        open( $fh, '<', $name ) or die "Unable to open file '$name': $!\n";
    }

    my $obj = {
        fh => $fh,
        start => $start,
        startlen => length $start,
        end => $end,
        endlen => length $end,
        stage => 0,
    };

    return bless $obj, $class;
}

sub readline {
    my ($self) = @_;

    return if $self->{'stage'} > 1 or eof( $self->{'fh'} );

    my $line;
    if( $self->{'stage'} == 0 )
    {
        0 while( defined( $line = readline $self->{'fh'} ) && substr( $line, 0, $self->{'startlen'} ) lt $self->{'start'} );
        $self->{'stage'} = 1;
    }
    else
    {
        $line = readline $self->{'fh'};
    }

    return $line if !defined $line || substr( $line, 0, $self->{'endlen'} ) lt $self->{'end'};
    $self->{'stage'} = 2;
    return;
}

1;
__END__