r71943 - in /branches/upstream/libaspect-perl/current: ./ lib/ lib/Aspect/ lib/Aspect/Advice/ lib/Aspect/Library/ lib/Aspect/Library/Listenable/ lib/Aspect/Point/ lib/Aspect/Pointcut/ t/ xt/
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Thu Mar 24 15:27:40 UTC 2011
Author: angelabad-guest
Date: Thu Mar 24 15:27:12 2011
New Revision: 71943
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71943
Log:
[svn-upgrade] new version libaspect-perl (0.96)
Removed:
branches/upstream/libaspect-perl/current/t/02_advice_context.t
Modified:
branches/upstream/libaspect-perl/current/Changes
branches/upstream/libaspect-perl/current/MANIFEST
branches/upstream/libaspect-perl/current/META.yml
branches/upstream/libaspect-perl/current/README
branches/upstream/libaspect-perl/current/lib/Aspect.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm
branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm
branches/upstream/libaspect-perl/current/xt/pmv.t
Modified: branches/upstream/libaspect-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/Changes?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/Changes (original)
+++ branches/upstream/libaspect-perl/current/Changes Thu Mar 24 15:27:12 2011
@@ -1,4 +1,12 @@
Revision history for Perl extension Aspect
+
+0.96 Thu 24 Mar 2011
+ - Updating copyright year
+ - Moved exception method away from a slow generic implementation
+ - Moved original method away from slow generic implementation
+ - Moved type method away from slow generic implementation
+ - Rewrote return_value method into a much faster version
+ - Removed get_value method, AUTOLOAD now reads the value directly
0.95 Mon 13 Dec 2010
- Fixed #57528 ([PATCH] Fix spelling error
Modified: branches/upstream/libaspect-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/MANIFEST?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/MANIFEST (original)
+++ branches/upstream/libaspect-perl/current/MANIFEST Thu Mar 24 15:27:12 2011
@@ -54,7 +54,6 @@
META.yml
README
t/01_compile.t
-t/02_advice_context.t
t/10_pointcut.t
t/11_pointcut_call.t
t/12_pointcut_cflow.t
Modified: branches/upstream/libaspect-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/META.yml?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/META.yml (original)
+++ branches/upstream/libaspect-perl/current/META.yml Thu Mar 24 15:27:12 2011
@@ -33,4 +33,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Aspect
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/Aspect
-version: 0.95
+version: 0.96
Modified: branches/upstream/libaspect-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/README?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/README (original)
+++ branches/upstream/libaspect-perl/current/README Thu Mar 24 15:27:12 2011
@@ -524,7 +524,7 @@
COPYRIGHT
Copyright 2001 by Marcel Grünauer
- Some parts copyright 2009 - 2010 Adam Kennedy.
+ Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect.pm Thu Mar 24 15:27:12 2011
@@ -31,7 +31,7 @@
use Aspect::Advice::AfterThrowing ();
use Aspect::AdviceContext ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
# Track the location of exported functions so that pointcuts
# can avoid accidentally binding them.
@@ -795,7 +795,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm Thu Mar 24 15:27:12 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.95';
+our $VERSION = '0.96';
sub new {
my $class = shift;
@@ -121,7 +121,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm Thu Mar 24 15:27:12 2011
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::After ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
@@ -78,7 +78,6 @@
] };
local \$_ = bless {
- type => 'after',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
@@ -111,7 +110,6 @@
};
local \$_ = bless {
- type => 'after',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
@@ -143,7 +141,6 @@
};
local \$_ = bless {
- type => 'after',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm Thu Mar 24 15:27:12 2011
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::AfterReturning ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
@@ -77,12 +77,11 @@
)
];
local \$_ = bless {
- type => 'after_returning',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
return_value => \$return,
- exception => undef,
+ exception => '',
pointcut => \$pointcut,
original => \$original,
}, 'Aspect::Point::AfterReturning';
@@ -100,12 +99,11 @@
1, \$original, \@_,
);
local \$_ = bless {
- type => 'after_returning',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
return_value => \$return,
- exception => undef,
+ exception => '',
pointcut => \$pointcut,
original => \$original,
}, 'Aspect::Point::AfterReturning';
@@ -120,12 +118,11 @@
1, \$original, \@_,
);
local \$_ = bless {
- type => 'after_returning',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
return_value => undef,
- exception => undef,
+ exception => '',
pointcut => \$pointcut,
original => \$original,
}, 'Aspect::Point::AfterReturning';
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm Thu Mar 24 15:27:12 2011
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::AfterThrowing ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
@@ -79,7 +79,6 @@
return \@\$return unless \$\@;
local \$_ = bless {
- type => 'after_throwing',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
@@ -110,7 +109,6 @@
return \$return unless \$\@;
local \$_ = bless {
- type => 'after_throwing',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
@@ -140,7 +138,6 @@
return unless \$\@;
local \$_ = bless {
- type => 'after_throwing',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm Thu Mar 24 15:27:12 2011
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::Around ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Advice';
sub _install {
@@ -69,12 +69,11 @@
# Apply any runtime-specific context checks
my \$wantarray = wantarray;
local \$_ = bless {
- type => 'around',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
return_value => \$wantarray ? [ ] : undef,
- exception => undef,
+ exception => '',
pointcut => \$pointcut,
original => \$original,
}, 'Aspect::Point::Around';
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm Thu Mar 24 15:27:12 2011
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::Point::Before ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Advice';
sub _install {
@@ -75,7 +75,6 @@
# Apply any runtime-specific context checks
my \$wantarray = wantarray;
local \$_ = bless {
- type => 'before',
sub_name => \$name,
wantarray => \$wantarray,
params => \\\@_,
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Point';
1;
@@ -35,7 +35,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm Thu Mar 24 15:27:12 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.95';
+our $VERSION = '0.96';
1;
@@ -39,7 +39,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm Thu Mar 24 15:27:12 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.95';
+our $VERSION = '0.96';
1;
@@ -36,7 +36,7 @@
=head1 COPYRIGHT
-Copyright 2009 - 2010 Adam Kennedy.
+Copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use Aspect::Library ();
use Aspect::Advice::Before ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Library';
sub get_advice {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm Thu Mar 24 15:27:12 2011
@@ -12,7 +12,7 @@
use Aspect::Advice::Before ();
use Aspect::Library::Listenable::Event ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Modular';
sub import {
@@ -567,7 +567,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm Thu Mar 24 15:27:12 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.95';
+our $VERSION = '0.96';
sub new {
my $class = shift;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm Thu Mar 24 15:27:12 2011
@@ -6,7 +6,7 @@
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Modular';
my %CACHE = ();
@@ -97,7 +97,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm Thu Mar 24 15:27:12 2011
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Call ();
use Aspect::Pointcut::Cflow ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Modular';
sub get_advice {
@@ -138,7 +138,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Library ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Library';
sub new {
@@ -133,7 +133,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use Carp ();
use Sub::Uplevel ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
@@ -110,52 +110,38 @@
sub return_value {
my $self = shift;
- if ( @_ ) {
- if ( $self->{wantarray} ) {
- # Normalise list-wise return behaviour
- # at mutation time, rather than everywhere else.
- # NOTE: Reuse the current array reference. This
- # causes the original return values to be cleaned
- # up immediately, and allows for a small
- # optimisation in the surrounding advice hook code.
- $self->{return_value} = \@_;
- } else {
- $self->{return_value} = shift;
- }
- if ( defined $self->{exception} ) {
- $self->{exception} = '';
- }
- $self->{proceed} = 0;
+
+ if ( $self->{wantarray} ) {
+ return @{$self->{return_value}} unless @_;
+
+ # Normalise list-wise return behaviour
+ # at mutation time, rather than everywhere else.
+ # NOTE: Reuse the current array reference. This
+ # causes the original return values to be cleaned
+ # up immediately, and allows for a small
+ # optimisation in the surrounding advice hook code.
+ $self->{return_value} = \@_;
+ $self->{exception} = '';
+ $self->{proceed} = 0;
+ return @_;
}
- my $return_value = $self->get_value('return_value');
- return (CORE::wantarray && ref $return_value eq 'ARRAY')
- ? @$return_value
- : $return_value;
-}
-
-sub exception {
- my $self = shift;
- if ( @_ ) {
- $self->{exception} = shift;
- $self->{proceed} = 0;
- }
- return $self->get_value('exception');
-}
-
-sub get_value {
- my ($self, $key) = @_;
+
+ return $self->{return_value} unless @_;
+
+ $self->{exception} = '';
+ $self->{proceed} = 0;
+ $self->{return_value} = shift;
+}
+
+sub AUTOLOAD {
+ my $self = shift;
+ my $key = our $AUTOLOAD;
+ $key =~ s/^.*:://;
Carp::croak "Key does not exist: [$key]" unless exists $self->{$key};
my $value = $self->{$key};
- return (CORE::wantarray && ref $value eq 'ARRAY')
- ? @$value
- : $value;
-}
-
-sub AUTOLOAD {
- my $self = shift;
- my $key = our $AUTOLOAD;
- $key =~ s/^.*:://;
- return $self->get_value($key);
+ return $value unless CORE::wantarray;
+ return $value unless ref $value eq 'ARRAY';
+ return @$value;
}
# Improves performance by not having to send DESTROY calls
@@ -296,7 +282,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,18 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Point';
+sub type { 'after' }
+
+sub exception {
+ my $self = shift;
+ if ( @_ ) {
+ $self->{exception} = shift;
+ $self->{proceed} = 0;
+ }
+ $self->{exception};
+}
+
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,18 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Point';
+sub type { 'after_returning' }
+
+sub exception {
+ my $self = shift;
+ if ( @_ ) {
+ $self->{exception} = shift;
+ $self->{proceed} = 0;
+ }
+ $self->{exception};
+}
+
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,18 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Point';
+sub type { 'after_throwing' }
+
+sub exception {
+ my $self = shift;
+ if ( @_ ) {
+ $self->{exception} = shift;
+ $self->{proceed} = 0;
+ }
+ $self->{exception};
+}
+
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,22 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Point';
+sub type { 'around' }
+
+sub exception {
+ my $self = shift;
+ if ( @_ ) {
+ $self->{exception} = shift;
+ $self->{proceed} = 0;
+ }
+ $self->{exception};
+}
+
+sub original {
+ $_[0]->{original};
+}
+
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,22 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Point';
+sub type { 'before' }
+
+sub exception {
+ my $self = shift;
+ if ( @_ ) {
+ $self->{exception} = shift;
+ $self->{proceed} = 0;
+ }
+ $self->{exception};
+}
+
+sub original {
+ $_[0]->{original};
+}
+
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm Thu Mar 24 15:27:12 2011
@@ -40,7 +40,7 @@
use Aspect::Pointcut::And ();
use Aspect::Pointcut::Not ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
use overload (
# Keep traditional Perl boolification and stringification
@@ -370,7 +370,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
@@ -231,7 +231,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm Thu Mar 24 15:27:12 2011
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Pointcut';
use constant ORIGINAL => 0;
@@ -141,7 +141,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm Thu Mar 24 15:27:12 2011
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Call ();
use Aspect::AdviceContext ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Pointcut';
use constant KEY => 0;
@@ -125,7 +125,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm Thu Mar 24 15:27:12 2011
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Pointcut';
@@ -99,7 +99,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm Thu Mar 24 15:27:12 2011
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Pointcut';
@@ -76,7 +76,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '0.95';
+our $VERSION = '0.96';
sub match_runtime {
return 0;
@@ -45,7 +45,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
@@ -110,7 +110,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
@@ -211,7 +211,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm Thu Mar 24 15:27:12 2011
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Pointcut';
@@ -88,7 +88,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm Thu Mar 24 15:27:12 2011
@@ -5,7 +5,7 @@
use Carp ();
use Aspect::Pointcut ();
-our $VERSION = '0.95';
+our $VERSION = '0.96';
our @ISA = 'Aspect::Pointcut';
use constant VOID => 1;
@@ -90,7 +90,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 - 2010 Adam Kennedy.
+Some parts copyright 2009 - 2011 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaspect-perl/current/xt/pmv.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/xt/pmv.t?rev=71943&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/xt/pmv.t (original)
+++ branches/upstream/libaspect-perl/current/xt/pmv.t Thu Mar 24 15:27:12 2011
@@ -9,7 +9,7 @@
}
my @MODULES = (
- 'Perl::MinimumVersion 1.25',
+ 'Perl::MinimumVersion 1.27',
'Test::MinimumVersion 0.101080',
);
More information about the Pkg-perl-cvs-commits
mailing list