File Coverage

blib/lib/PerlIO/via/escape_ansi.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	40	42	95.2

package PerlIO::via::escape_ansi;

require 5.008;
use strict;
use warnings;
use XSLoader;


{
    no strict "vars";
    $VERSION = "0.01";
    XSLoader::load(__PACKAGE__, $VERSION);
}


sub import {
    my ($class, @args) = @_;

    if (grep { $_ eq "-as_function" } @args) {
        no strict "vars";
        require Exporter;
        @ISA    = qw< Exporter >;
        @EXPORT = qw< escape_non_printable_chars >;
        $class->export_to_level(1);
    }
}


#
# PerlIO methods
# --------------

sub PUSHED {
    my ($class, $mode) = @_;
    return bless {}, $class;
}

sub FILL {
    my ($self, $fh) = @_;
    my $line = <$fh>;
    return undef unless defined $line;
    return escape_non_printable_chars ($line);
}


"true value on strike"

__END__