diff options
Diffstat (limited to 'cpan/Test-Harness/t/parse.t')
-rw-r--r-- | cpan/Test-Harness/t/parse.t | 10 |
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} |