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