r50635 - in /trunk/libaspect-perl: ./ debian/ lib/ lib/Aspect/ lib/Aspect/Advice/ lib/Aspect/Library/ lib/Aspect/Library/Listenable/ lib/Aspect/Pointcut/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 10 15:34:57 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 10 15:34:41 2010
New Revision: 50635
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50635
Log:
New upstream release
Added:
trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm
- copied unchanged from r50634, branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm
trunk/libaspect-perl/t/25_advice_after_returning.t
- copied unchanged from r50634, branches/upstream/libaspect-perl/current/t/25_advice_after_returning.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/lib/Aspect.pm
trunk/libaspect-perl/lib/Aspect/Advice.pm
trunk/libaspect-perl/lib/Aspect/Advice/After.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/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/Pointcut.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm
Modified: trunk/libaspect-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/Changes?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/Changes (original)
+++ trunk/libaspect-perl/Changes Sun Jan 10 15:34:41 2010
@@ -1,4 +1,8 @@
Revision history for Perl extension Aspect
+
+0.34 Sun 10 Jan 2010 - Adam Kennedy
+ - Adding Aspect::Advice::AfterReturning before we implement exception
+ support in the main ::After advice.
0.33 Fri 8 Jan 2010 - Adam Kennedy
- Added Test::NoWarnings to all of the tests
Modified: trunk/libaspect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/MANIFEST?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/MANIFEST (original)
+++ trunk/libaspect-perl/MANIFEST Sun Jan 10 15:34:41 2010
@@ -18,6 +18,7 @@
lib/Aspect.pm
lib/Aspect/Advice.pm
lib/Aspect/Advice/After.pm
+lib/Aspect/Advice/AfterReturning.pm
lib/Aspect/Advice/Around.pm
lib/Aspect/Advice/Before.pm
lib/Aspect/AdviceContext.pm
@@ -45,6 +46,7 @@
t/22_advice_around.t
t/23_advice_before.t
t/24_advice_after.t
+t/25_advice_after_returning.t
t/31_feature_caller.t
t/32_feature_wantarray.t
t/33_feature_exception.t
Modified: trunk/libaspect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/META.yml?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/META.yml (original)
+++ trunk/libaspect-perl/META.yml Sun Jan 10 15:34:41 2010
@@ -32,4 +32,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.33
+version: 0.34
Modified: trunk/libaspect-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/README?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/README (original)
+++ trunk/libaspect-perl/README Sun Jan 10 15:34:41 2010
@@ -48,7 +48,9 @@
if ( $context->self->customer_name eq 'Adam Kennedy' ) {
$context->return_value('One meeeelion dollars');
} else {
+ # Take a dollar off everyone else
$context->run_original;
+ $context->return_value( $context->return_value - 1 );
}
} call 'Bank::Account::balance';
Modified: trunk/libaspect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/changelog?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/changelog (original)
+++ trunk/libaspect-perl/debian/changelog Sun Jan 10 15:34:41 2010
@@ -1,3 +1,9 @@
+libaspect-perl (0.34-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 10 Jan 2010 10:36:25 -0500
+
libaspect-perl (0.33-1) unstable; urgency=low
* New upstream release
Modified: trunk/libaspect-perl/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect.pm (original)
+++ trunk/libaspect-perl/lib/Aspect.pm Sun Jan 10 15:34:41 2010
@@ -15,23 +15,24 @@
# So we'll do the best we can here, and then in the future we might
# want to consider switching to "use Sub::UpLevel ':aggressive';"
# -- ADAMK
-use Sub::Uplevel ();
-use Exporter ();
-use Aspect::Advice ();
-use Aspect::AdviceContext ();
-use Aspect::Advice::Before ();
-use Aspect::Advice::After ();
-use Aspect::Advice::Around ();
-use Aspect::Pointcut ();
-use Aspect::Pointcut::Call ();
-use Aspect::Pointcut::Cflow ();
-use Aspect::Pointcut::AndOp ();
-use Aspect::Pointcut::OrOp ();
-use Aspect::Pointcut::NotOp ();
-
-our $VERSION = '0.33';
+use Sub::Uplevel ();
+use Exporter ();
+use Aspect::Advice ();
+use Aspect::AdviceContext ();
+use Aspect::Advice::Around ();
+use Aspect::Advice::Before ();
+use Aspect::Advice::After ();
+use Aspect::Advice::AfterReturning ();
+use Aspect::Pointcut ();
+use Aspect::Pointcut::Call ();
+use Aspect::Pointcut::Cflow ();
+use Aspect::Pointcut::AndOp ();
+use Aspect::Pointcut::OrOp ();
+use Aspect::Pointcut::NotOp ();
+
+our $VERSION = '0.34';
our @ISA = 'Exporter';
-our @EXPORT = qw{ aspect around before after call cflow };
+our @EXPORT = qw{ aspect around before after after_returning call cflow };
# Internal data storage
my @FOREVER = ();
@@ -74,6 +75,14 @@
sub after (&$) {
Aspect::Advice::After->new(
+ code => $_[0],
+ pointcut => $_[1],
+ lexical => defined wantarray,
+ );
+}
+
+sub after_returning (&$) {
+ Aspect::Advice::AfterReturning->new(
code => $_[0],
pointcut => $_[1],
lexical => defined wantarray,
@@ -163,7 +172,9 @@
if ( $context->self->customer_name eq 'Adam Kennedy' ) {
$context->return_value('One meeeelion dollars');
} else {
+ # Take a dollar off everyone else
$context->run_original;
+ $context->return_value( $context->return_value - 1 );
}
} call 'Bank::Account::balance';
Modified: trunk/libaspect-perl/lib/Aspect/Advice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice.pm Sun Jan 10 15:34:41 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
sub new {
my $class = shift;
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/After.pm Sun Jan 10 15:34:41 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Around.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Around.pm Sun Jan 10 15:34:41 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Advice';
sub _install {
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Before.pm Sun Jan 10 15:34:41 2010
@@ -10,7 +10,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Advice';
sub _install {
Modified: trunk/libaspect-perl/lib/Aspect/AdviceContext.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/AdviceContext.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/AdviceContext.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/AdviceContext.pm Sun Jan 10 15:34:41 2010
@@ -5,7 +5,7 @@
use Carp ();
use Sub::Uplevel ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm Sun Jan 10 15:34:41 2010
@@ -12,7 +12,7 @@
use Aspect::Advice::Before ();
use Aspect::Library::Listenable::Event ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = qw{ Aspect::Modular Exporter };
our @EXPORT = qw{ add_listener remove_listener };
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm Sun Jan 10 15:34:41 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm Sun Jan 10 15:34:41 2010
@@ -6,7 +6,7 @@
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Modular';
my %CACHE = ();
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm Sun Jan 10 15:34:41 2010
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Cflow ();
use Aspect::Pointcut::AndOp ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Modular';
sub get_advice {
Modified: trunk/libaspect-perl/lib/Aspect/Modular.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Modular.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Modular.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Modular.pm Sun Jan 10 15:34:41 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
sub new {
my $class = shift;
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut.pm Sun Jan 10 15:34:41 2010
@@ -7,7 +7,7 @@
use Aspect::Pointcut::AndOp ();
use Aspect::Pointcut::NotOp ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
use overload (
# Keep traditional boolification and stringification
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm Sun Jan 10 15:34:41 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Pointcut';
sub new {
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm Sun Jan 10 15:34:41 2010
@@ -5,7 +5,7 @@
use Carp;
use Aspect::Pointcut ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Pointcut';
sub new {
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=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm Sun Jan 10 15:34:41 2010
@@ -6,7 +6,7 @@
use Aspect::Pointcut ();
use Aspect::AdviceContext ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Pointcut';
sub new {
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm Sun Jan 10 15:34:41 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Pointcut';
sub new {
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm?rev=50635&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm Sun Jan 10 15:34:41 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our @ISA = 'Aspect::Pointcut';
sub new {
More information about the Pkg-perl-cvs-commits
mailing list