File Coverage

blib/lib/Tie/Diamond.pm

Criterion	Covered	Total	%
statement	32	35	91.4
branch	7	10	70.0
condition	2	2	100.0
subroutine	7	7	100.0
pod			n/a
total	48	54	88.8

package Tie::Diamond;

use 5.010001;
use strict;
use warnings;

our $VERSION = '0.06'; # VERSION

sub TIEARRAY {
    my $class = shift;
    my $opts  = shift // {};

    bless { size=>0, eof=>0, opts=>$opts }, $class;
}

sub FETCH {
    my $self  = shift;
    my $index = shift;

    #print "FETCH($index)\n";
    if ($self->{eof}) {
        return undef;
    } else {
        return $self->{rec};
    }
}

sub FETCHSIZE {
    my $self = shift;

    my $size;
    if ($self->{eof}) {
        $size = $self->{size};
    } else {
        my $rec;
        if ($self->{opts}{utf8}) {
            use open ':std', ':utf8';
            $rec = <>;
        } else {
            $rec = <>;
        }

        if ($rec) {
            $size = ++$self->{size};
            chomp($rec) if $self->{opts}{chomp};
            $self->{rec} = $rec;
        } else {
            $self->{eof}++;
            $size = $self->{size};
        }
    }
    #print "FETCHSIZE() -> $size\n";
    $size;
}

1;
# ABSTRACT: Iterate the diamond operator via a Perl array

__END__