r71946 - in /trunk/libaspect-perl: ./ debian/ 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 16:04:11 UTC 2011
Author: angelabad-guest
Date: Thu Mar 24 16:03:39 2011
New Revision: 71946
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71946
Log:
* New upstream release
* debian/copyright: Update copyright years
Removed:
trunk/libaspect-perl/t/02_advice_context.t
Modified:
trunk/libaspect-perl/Changes
trunk/libaspect-perl/MANIFEST
trunk/libaspect-perl/META.yml
trunk/libaspect-perl/README
trunk/libaspect-perl/debian/changelog
trunk/libaspect-perl/debian/control
trunk/libaspect-perl/debian/copyright
trunk/libaspect-perl/lib/Aspect.pm
trunk/libaspect-perl/lib/Aspect/Advice.pm
trunk/libaspect-perl/lib/Aspect/Advice/After.pm
trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm
trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm
trunk/libaspect-perl/lib/Aspect/Advice/Around.pm
trunk/libaspect-perl/lib/Aspect/Advice/Before.pm
trunk/libaspect-perl/lib/Aspect/AdviceContext.pm
trunk/libaspect-perl/lib/Aspect/Hook.pm
trunk/libaspect-perl/lib/Aspect/Library.pm
trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm
trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm
trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm
trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm
trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm
trunk/libaspect-perl/lib/Aspect/Modular.pm
trunk/libaspect-perl/lib/Aspect/Point.pm
trunk/libaspect-perl/lib/Aspect/Point/After.pm
trunk/libaspect-perl/lib/Aspect/Point/AfterReturning.pm
trunk/libaspect-perl/lib/Aspect/Point/AfterThrowing.pm
trunk/libaspect-perl/lib/Aspect/Point/Around.pm
trunk/libaspect-perl/lib/Aspect/Point/Before.pm
trunk/libaspect-perl/lib/Aspect/Pointcut.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm
trunk/libaspect-perl/xt/pmv.t
Modified: trunk/libaspect-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/Changes?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/Changes (original)
+++ trunk/libaspect-perl/Changes Thu Mar 24 16:03:39 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: trunk/libaspect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/MANIFEST?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/MANIFEST (original)
+++ trunk/libaspect-perl/MANIFEST Thu Mar 24 16:03:39 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: trunk/libaspect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/META.yml?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/META.yml (original)
+++ trunk/libaspect-perl/META.yml Thu Mar 24 16:03:39 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: trunk/libaspect-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/README?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/README (original)
+++ trunk/libaspect-perl/README Thu Mar 24 16:03:39 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: trunk/libaspect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/changelog?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/changelog (original)
+++ trunk/libaspect-perl/debian/changelog Thu Mar 24 16:03:39 2011
@@ -1,3 +1,10 @@
+libaspect-perl (0.96-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/copyright: Update copyright years
+
+ -- Angel Abad <angelabad at gmail.com> Thu, 24 Mar 2011 17:02:50 +0100
+
libaspect-perl (0.95-1) unstable; urgency=low
* New upstream release
Modified: trunk/libaspect-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/control?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/control (original)
+++ trunk/libaspect-perl/debian/control Thu Mar 24 16:03:39 2011
@@ -2,13 +2,19 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, libparams-util-perl (>= 1.00),
- libsub-install-perl, libsub-uplevel-perl (>= 0.2002),
- libtask-weaken-perl, libtest-class-perl (>= 0.33),
- libtest-exception-perl (>= 0.29), libtest-nowarnings-perl
+Build-Depends-Indep: libparams-util-perl (>= 1.00),
+ libsub-install-perl,
+ libsub-uplevel-perl (>= 0.2002),
+ libtask-weaken-perl,
+ libtest-class-perl (>= 0.33),
+ libtest-exception-perl (>= 0.29),
+ libtest-nowarnings-perl,
+ perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jonathan Yu <jawnsy at cpan.org>, gregor herrmann <gregoa at debian.org>,
- Ryan Niebur <ryan at debian.org>, Angel Abad <angelabad at gmail.com>
+Uploaders: Jonathan Yu <jawnsy at cpan.org>,
+ gregor herrmann <gregoa at debian.org>,
+ Ryan Niebur <ryan at debian.org>,
+ Angel Abad <angelabad at gmail.com>
Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Aspect/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libaspect-perl/
@@ -16,8 +22,10 @@
Package: libaspect-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libparams-util-perl (>= 1.00),
- libsub-install-perl, libsub-uplevel-perl (>= 0.2002),
+Depends: ${misc:Depends}, ${perl:Depends},
+ libparams-util-perl (>= 1.00),
+ libsub-install-perl,
+ libsub-uplevel-perl (>= 0.2002),
libtask-weaken-perl
Suggests: libbenchmark-timer-perl
Description: module for Aspect-Oriented Programming in Perl
Modified: trunk/libaspect-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/copyright?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/copyright (original)
+++ trunk/libaspect-perl/debian/copyright Thu Mar 24 16:03:39 2011
@@ -7,7 +7,7 @@
on behalf of Allianz24.
Files: *
-Copyright: 2009-2010, Adam Kennedy <adamk at cpan.org>
+Copyright: 2009-2011, Adam Kennedy <adamk at cpan.org>
2001-2002, Marcel Grünauer <marcel at cpan.org>
License: Artistic or GPL-1+
@@ -21,7 +21,7 @@
Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
2009, Christoph Berg <myon at debian.org>
2009-2010, gregor herrmann <gregoa at debian.org>
- 2010, Angel Abad <angelabad at gmail.com>
+ 2010-2011, Angel Abad <angelabad at gmail.com>
License: Artistic or GPL-1+
License: Artistic
@@ -37,5 +37,5 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian systems, the complete text of version 1 of the General
+ On Debian systems, the complete text of version 1 of the GNU General
Public License can be found in `/usr/share/common-licenses/GPL-1'.
Modified: trunk/libaspect-perl/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect.pm (original)
+++ trunk/libaspect-perl/lib/Aspect.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Advice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Advice/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/After.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/After.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Advice/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/Around.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Around.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Around.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Advice/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/Before.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Before.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/AdviceContext.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/AdviceContext.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/AdviceContext.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/AdviceContext.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Hook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Hook.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Hook.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Hook.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Library.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm Thu Mar 24 16:03:39 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.95';
+our $VERSION = '0.96';
sub new {
my $class = shift;
Modified: trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Modular.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Modular.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Modular.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Modular.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Point.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Point.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Point.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Point.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Point/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Point/After.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Point/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Point/After.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Point/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Point/AfterReturning.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Point/AfterReturning.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Point/AfterReturning.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Point/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Point/AfterThrowing.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Point/AfterThrowing.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Point/AfterThrowing.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Point/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Point/Around.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Point/Around.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Point/Around.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Point/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Point/Before.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Point/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Point/Before.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm Thu Mar 24 16:03:39 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: trunk/libaspect-perl/xt/pmv.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/xt/pmv.t?rev=71946&op=diff
==============================================================================
--- trunk/libaspect-perl/xt/pmv.t (original)
+++ trunk/libaspect-perl/xt/pmv.t Thu Mar 24 16:03:39 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