File Coverage

blib/lib/PerlIO/via/trap.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	7	8	87.5
condition	3	5	60.0
subroutine	10	11	90.9
pod	0	3	0.0
total	54	63	85.7

package PerlIO::via::trap;
require Exporter;
@ISA = 'Exporter';
@EXPORT = 'open';
$VERSION = '0.09';

use strict;
use Carp;
use IO::Handle;

our $PASS = 0;

sub PUSHED { bless \*PUSHED,$_[0] }
sub FILL { readline( $_[1] ) }

sub SEEK {
    seek $_[3], $_[1], $_[2];
    return 0;
} #SEEK

sub WRITE {
    my ($obj, $buf, $fh) = @_;
    confess "attempt to write ".length($_[1])."bytes to $_[2]" unless $PASS;
    $fh->print($buf);
} #WRITE

sub import {
    my $pkg = shift;
    return unless @_;
    my $sym = shift;
    $pkg->export('CORE::GLOBAL', $sym, @_);
}

sub open (*;@) {
    no strict 'refs';
    my $fh = $_[0] ? *{caller()."::$_[0]"} : $_[0];
    my ($mode, $file) = @_[1,2];

    unless (defined $file) {
	($mode, $file) = ($mode =~ /^(\+?(?:<|>>?|\|)?)(.+)$/);
	# XXX: should we take care of > here to avoid truncation?
	$mode ||= '<';
    }

    my $ret = CORE::open($fh, $mode, $file);
    binmode $fh, ':via(trap)';
    $_[0] ||= $fh;
    $ret;
}

1;
__END__