Searched defs:TieTest (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DScalar.t9 package TieTest; package
64 # Tie::Scalar::TIEHANDLE should find and call TieTest::new and complain
65 is( tie( my $foo, 'TieTest'), 'Fooled you.', 'delegated to new()' );
66 like( $warn, qr/WARNING: calling TieTest->new/, 'caught warning fine' );

Completed in 23 milliseconds