t/op/method.t

590     foreach (qw (Count::DATA Count Colour::H1 Color::H1 C3::H1)) {
606     is(Count::DATA->getline(), 'method in Count::DATA',
608     is(The::Count::DATA->getline(), 'method in Count::DATA',
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',
667     my $data_start = tell DATA;
668     is(Colour::H1->getline(), <DATA>, 'read from a file');
674     is(Colour::H1->getline(), <DATA>, 'read from a file');
675     is(Color::H1->getline(), <DATA>,
691     is(Color::H1->getline(), <DATA>,
695     seek DATA, $data_start, Fcntl::SEEK_SET() or die $!;
697     is(Colour::H1->getline(), <DATA>, 'read from a file');
703     is(Colour::H1->getline(), <DATA>, 'read from a file');
704     is(C3::H1->getline(), <DATA>,