Lines Matching refs:fh
19 my $fh;
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');
27 ok( (print $fh $a), "print to output file");
28 ok( close($fh), 'close output file');
30 ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
31 { local $/; $b = <$fh> }
32 ok( close($fh), "close input file");
44 my $fd = open($fh,">$tmp") && fileno($fh);
45 print $fh "Hello\n";
46 close($fh);
48 ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail');
52 my $fd2 = open($fh,"<$tmp") && fileno($fh);
55 my $data = <$fh>;
59 close($fh);
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');
79 open $fh, '<:via(Foo)', "foo";
81 open $fh, '<:via(Bar)', "bar";