diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-11-01 00:23:12 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-11-01 00:24:08 +0000 |
| commit | a9aeb2f17bf8f278290ca5bb590566f31b78ffb1 (patch) | |
| tree | a2de025973366b9dad94c51d1fe1ccbf9222f956 /cpan/parent | |
| parent | 9e92194e47c35a3910a8726b88f0abc6c1c0df3c (diff) | |
| download | perl-a9aeb2f17bf8f278290ca5bb590566f31b78ffb1.tar.gz | |
Update parent to CPAN version 0.224
[DELTA]
0.224 20101031
. Change assignment @ISA = (@ISA, 'new::class')
to use push @ISA, 'new::class'
This should make class creation faster from 5.10 onwards
and reverts a change made in 2.14. If this is critically slow for you
and you can't upgrade your version of Perl, use the old way.
Diffstat (limited to 'cpan/parent')
| -rw-r--r-- | cpan/parent/lib/parent.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cpan/parent/lib/parent.pm b/cpan/parent/lib/parent.pm index a18526bb51..bd67b0fa4f 100644 --- a/cpan/parent/lib/parent.pm +++ b/cpan/parent/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; use vars qw($VERSION); -$VERSION = '0.223'; +$VERSION = '0.224'; 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 @@ -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 |