summaryrefslogtreecommitdiff
path: root/cpan/Test-Harness/t/parse.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Test-Harness/t/parse.t')
-rw-r--r--cpan/Test-Harness/t/parse.t10
1 files changed, 4 insertions, 6 deletions
diff --git a/cpan/Test-Harness/t/parse.t b/cpan/Test-Harness/t/parse.t
index 9cf5913403..8556ce7312 100644
--- a/cpan/Test-Harness/t/parse.t
+++ b/cpan/Test-Harness/t/parse.t
@@ -1,6 +1,7 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
BEGIN {
use lib 't/lib';
@@ -802,9 +803,8 @@ END_TAP
package TAP::Parser::Iterator::Dies;
use strict;
- use vars qw(@ISA);
- @ISA = qw(TAP::Parser::Iterator);
+ use parent qw(TAP::Parser::Iterator);
sub next_raw {
die 'this is the dying iterator';
@@ -898,9 +898,8 @@ END_TAP
# coverage testing of TAP::Parser::_next_state
package TAP::Parser::WithBrokenState;
- use vars qw(@ISA);
- @ISA = qw( TAP::Parser );
+ use parent qw( TAP::Parser );
sub _make_state_table {
return { INIT => { plan => { goto => 'FOO' } } };
@@ -936,9 +935,8 @@ END_TAP
# coverage testing of TAP::Parser::_iter
package TAP::Parser::WithBrokenIter;
- use vars qw(@ISA);
- @ISA = qw( TAP::Parser );
+ use parent qw( TAP::Parser );
sub _iter {return}