File Coverage

blib/lib/Text/APL/Writer.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	10	12	83.3
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	43	46	93.4

package Text::APL::Writer;

use strict;
use warnings;

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

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

    my $writer;

    if (!ref $output) {
        open my $fh, '>', $output or die "Can't write to '$output': $!";
        $writer = sub { print $fh $_[0] };
    }
    elsif (ref $output eq 'GLOB') {
        $writer = sub { print $output $_[0] };
    }
    elsif (ref $output eq 'SCALAR') {
        ${$output} = '';
        $writer = sub { ${$output} .= $_[0] if defined $_[0] };
    }
    elsif (ref $output eq 'CODE') {
        $writer = $output;
    }
    else {
        die 'Do not know how to write';
    }

    return $writer;
}

1;
__END__