File Coverage

blib/lib/Text/APL/Reader.pm

Criterion	Covered	Total	%
statement	41	42	97.6
branch	9	12	75.0
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	61	65	93.8

package Text::APL::Reader;

use strict;
use warnings;

use base 'Text::APL::Base';

sub build {
    my $self = shift;
    my ($input) = @_;

    my $reader;

    if (!ref $input) {
        $reader = $self->_build_file_reader($input);
    }
    elsif (ref $input eq 'GLOB') {
        $reader = $self->_build_file_handle_reader($input);
    }
    elsif (ref $input eq 'SCALAR') {
        $reader = $self->_build_string_reader($input);
    }
    elsif (ref $input eq 'CODE') {
        $reader = $input;
    }
    else {
        die 'Do not know how to read';
    }

    return $reader;
}

sub _build_file_reader {
    my $self = shift;
    my ($input) = @_;

    open my $fh, '<', $input or die "Can't open '$input': $!";

    if (my $charset = $self->{charset}) {
        binmode $fh, ":encoding($charset)";
    }

    return $self->_build_file_handle_reader($fh);
}

sub _build_file_handle_reader {
    my $self = shift;
    my ($input) = @_;

    sub {
        my ($cb) = @_;
        while (defined(my $line = <$input>)) {
            $cb->($line);
        }
        $cb->();
    };
}

sub _build_string_reader {
    my $self = shift;
    my ($input) = @_;

    sub {
        my ($cb) = @_;

        $cb->(${$input});
        $cb->();
    };
}

1;
__END__