[perl5.git] / lib / Tie / Handle / stdhandle_from_handle.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 1;

use Tie::Handle;

{
    package Foo;
    @ISA = qw(Tie::StdHandle);
}

# For backwards compatibility with 5.8.x
ok( Foo->can("TIEHANDLE"), "loading Tie::Handle loads TieStdHandle" );
Commit	Line	Data
6269bcb3 MS	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
98dc9551	17	# For backwards compatibility with 5.8.x
6269bcb3	18	ok( Foo->can("TIEHANDLE"), "loading Tie::Handle loads TieStdHandle" );