File Coverage

blib/lib/PerlIO/via/Pipe.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	35	36	97.2

use 5.008;
use strict;
use warnings;

package PerlIO::via::Pipe;
our $VERSION = '1.100860';
# ABSTRACT: PerlIO layer to filter input through a Text::Pipe
use Exporter qw(import);
our %EXPORT_TAGS = (util => [qw(set_io_pipe)],);
our @EXPORT_OK = @{ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ] };

sub set_io_pipe ($) {
    our $pipe = shift;
}

sub PUSHED {
    my ($class, $mode) = @_;
    return -1 if $mode ne 'r';
    my $buf = '';
    bless \$buf, $class;
}

sub FILL {
    my ($self, $fh) = @_;
    my $line = <$fh>;
    return unless defined $line;
    our $pipe;
    $pipe->filter($line);
}
1;


__END__