diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/parent.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/parent.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/parent.pm b/Master/tlpkg/tlperl/lib/parent.pm index a18526bb519..8f72db86dc8 100644 --- a/Master/tlpkg/tlperl/lib/parent.pm +++ b/Master/tlpkg/tlperl/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; use vars qw($VERSION); -$VERSION = '0.223'; +$VERSION = '0.225'; sub import { my $class = shift; @@ -23,9 +23,7 @@ sub import { { no strict 'refs'; - # This is more efficient than push for the new MRO - # at least until the new MRO is fixed - @{"$inheritor\::ISA"} = (@{"$inheritor\::ISA"} , @_); + push @{"$inheritor\::ISA"}, @_; }; }; @@ -33,6 +31,8 @@ sub import { __END__ +=encoding utf8 + =head1 NAME parent - Establish an ISA relationship with base classes at compile time @@ -102,7 +102,7 @@ either C<.pm> or C<.pmc>), use the following code: Attempting to inherit from yourself generates a warning. - use Foo; + package Foo; use parent 'Foo'; =back @@ -120,13 +120,13 @@ L<base> =head1 AUTHORS AND CONTRIBUTORS -Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern +Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern =head1 MAINTAINER Max Maischein C< corion@cpan.org > -Copyright (c) 2007 Max Maischein C<< <corion@cpan.org> >> +Copyright (c) 2007-10 Max Maischein C<< <corion@cpan.org> >> Based on the idea of C<base.pm>, which was introduced with Perl 5.004_04. =head1 LICENSE |