From a9aeb2f17bf8f278290ca5bb590566f31b78ffb1 Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Mon, 1 Nov 2010 00:23:12 +0000 Subject: 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. --- cpan/parent/lib/parent.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'cpan/parent') 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 =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<< >> +Copyright (c) 2007-10 Max Maischein C<< >> Based on the idea of C, which was introduced with Perl 5.004_04. =head1 LICENSE -- cgit v1.2.1