diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/TAP/Parser/Result.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/TAP/Parser/Result.pm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/Master/tlpkg/tlperl/lib/TAP/Parser/Result.pm b/Master/tlpkg/tlperl/lib/TAP/Parser/Result.pm index a0caebe24ca..eaad1d2f41b 100644 --- a/Master/tlpkg/tlperl/lib/TAP/Parser/Result.pm +++ b/Master/tlpkg/tlperl/lib/TAP/Parser/Result.pm @@ -1,11 +1,9 @@ package TAP::Parser::Result; use strict; -use vars qw($VERSION @ISA); +use warnings; -use TAP::Object (); - -@ISA = 'TAP::Object'; +use base 'TAP::Object'; BEGIN { @@ -26,11 +24,11 @@ TAP::Parser::Result - Base class for TAP::Parser output objects =head1 VERSION -Version 3.26 +Version 3.30 =cut -$VERSION = '3.26'; +our $VERSION = '3.30'; =head1 SYNOPSIS @@ -274,9 +272,8 @@ subclass L<TAP::Parser::Grammar> too, or else it'll never get used. package MyResult; use strict; - use vars '@ISA'; - @ISA = 'TAP::Parser::Result'; + use base 'TAP::Parser::Result'; # register with the factory: TAP::Parser::ResultFactory->register_type( 'my_type' => __PACKAGE__ ); |