Lines Matching defs:PerlIO

6         print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
22 BEGIN { use_ok('PerlIO::via::QuotedPrint'); }
24 ok( !open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails');
25 ok(  open($fh,">via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for output');
29 ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
77 sub PerlIO::via::Bar::PUSHED	{ $obj = shift; -1; }
81 is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
104     package PerlIO::via::XXX;
117     package PerlIO::via::YYY;
150     like($warn, qr/Invalid return from PerlIO::via::BadRead::READ = -1, expected undef or 0 to 10/,
156     like($warn, qr/Invalid return from PerlIO::via::BadRead::READ = 11, expected undef or 0 to 10/,
163     like($warn, qr/Invalid return from PerlIO::via::BadRead::READ = 10, beyond end of the returned buffer at 9/,
166     package PerlIO::via::BadRead;