lib/Tie/Handle/stdhandle_from_handle.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 use Test::More tests => 1;
   9
  10 use Tie::Handle;
  11
  12 {
  13     package Foo;
  14     @ISA = qw(Tie::StdHandle);
  15 }
  16
  17 # For backwards compatibility with 5.8.x
  18 ok( Foo->can("TIEHANDLE"), "loading Tie::Handle loads TieStdHandle" );