Lines Matching refs:via
15 my $tmp = "via$$";
23 BEGIN { use_ok('PerlIO::via::QuotedPrint'); }
25 ok( !open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails');
26 ok( open($fh,">via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for output');
30 ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
48 ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail');
67 ok( ! open($fh,">via(Incomplete::Module)", $tmp), 'open via Incomplete::Module will fail');
72 ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail');
78 sub PerlIO::via::Bar::PUSHED { $obj = shift; -1; }
79 open $fh, '<:via(Foo)', "foo";
81 open $fh, '<:via(Bar)', "bar";
82 is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );