t/op/method.t

590     foreach (qw (Count::DATA Count Colour::H1 Color::H1 C3::H1)) {
603 	*The::Count:: = \*Count::;
606     is(Count::DATA->getline(), 'method in Count::DATA',
608     is(The::Count::DATA->getline(), 'method in Count::DATA',
611     require Count;
613     is(Count::DATA->getline(), "one! ha ha ha\n", 'file handles take priority');
614     is(The::Count::DATA->getline(), "two! ha ha ha\n",
617     eval q{close Count::DATA} or die $!;
621 	is(Count::DATA->getline(), undef,
623 	is(The::Count::DATA->getline(), undef,
627     undef *Count::DATA;
628     is(Count::DATA->getline(), 'method in Count::DATA',
630     is(The::Count::DATA->getline(), 'method in Count::DATA',
633     is(Count->getline(), 'method in Count',
635     is(The::Count->getline(), 'method in Count',
639         open Count, '<', $INC{'Count.pm'}
644     is(Count->getline(), "# zero! ha ha ha\n", 'file handles take priority');
645     is(The::Count->getline(), 'method in Count', 'but not in an aliased class');
647     eval q{close Count} or die $!;
651 	is(Count->getline(), undef,
655     undef *Count;
656     is(Count->getline(), 'method in Count',