File Coverage

blib/lib/encoding/stdio.pm

Criterion	Covered	Total	%
statement	8	18	44.4
branch	1	2	50.0
condition			n/a
subroutine	2	5	40.0
pod			n/a
total	11	25	44.0

package encoding::stdio;
use strict;
require encoding;
our $VERSION = '0.02';
our @ISA = ('encoding');

sub DEBUG () { 0 }

sub import {
    my $class = shift;
    my ($name, %arg) = @_;
    local ${^ENCODING};
    if ($arg{Filter}) {
        local $INC{"Filter/Util/Call.pm"} = "dummy";
        local *Filter::Util::Call::import = sub {
            DEBUG && warn "F'U'C->i faked";
        };
        local *encoding::filter_add = sub {
            DEBUG && warn "filter_add faked";
        };
        $class->SUPER::import(@_);
    } else {
        $class->SUPER::import(@_);
    }
}

sub unimport {
    my $class = shift;
    local $INC{"Filter/Util/Call.pm"} = 0;  # pretend it's not there
    local ${^ENCODING};
    $class->SUPER::unimport(@_);
}

1;
__END__