r50711 - in /trunk/libaspect-perl: ./ debian/ lib/ lib/Aspect/ lib/Aspect/Advice/ lib/Aspect/Library/ lib/Aspect/Library/Listenable/ lib/Aspect/Pointcut/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon Jan 11 17:16:19 UTC 2010
Author: gregoa
Date: Mon Jan 11 17:15:53 2010
New Revision: 50711
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50711
Log:
* New upstream release 0.35.
Added:
trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm
- copied unchanged from r50710, branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm
trunk/libaspect-perl/t/26_advice_after_throwing.t
- copied unchanged from r50710, branches/upstream/libaspect-perl/current/t/26_advice_after_throwing.t
Removed:
trunk/libaspect-perl/t/33_feature_exception.t
Modified:
trunk/libaspect-perl/Changes
trunk/libaspect-perl/MANIFEST
trunk/libaspect-perl/META.yml
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/AfterReturning.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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/Changes (original)
+++ trunk/libaspect-perl/Changes Mon Jan 11 17:15:53 2010
@@ -1,4 +1,7 @@
Revision history for Perl extension Aspect
+
+0.35 Mon 11 Jan 2010 - Adam Kennedy
+ - Adding initial support for exceptions, with after_throwing
0.34 Sun 10 Jan 2010 - Adam Kennedy
- Adding Aspect::Advice::AfterReturning before we implement exception
Modified: trunk/libaspect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/MANIFEST?rev=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/MANIFEST (original)
+++ trunk/libaspect-perl/MANIFEST Mon Jan 11 17:15:53 2010
@@ -19,6 +19,7 @@
lib/Aspect/Advice.pm
lib/Aspect/Advice/After.pm
lib/Aspect/Advice/AfterReturning.pm
+lib/Aspect/Advice/AfterThrowing.pm
lib/Aspect/Advice/Around.pm
lib/Aspect/Advice/Before.pm
lib/Aspect/AdviceContext.pm
@@ -47,9 +48,9 @@
t/23_advice_before.t
t/24_advice_after.t
t/25_advice_after_returning.t
+t/26_advice_after_throwing.t
t/31_feature_caller.t
t/32_feature_wantarray.t
-t/33_feature_exception.t
t/97_meta.t
t/98_pod.t
t/99_pmv.t
Modified: trunk/libaspect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/META.yml?rev=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/META.yml (original)
+++ trunk/libaspect-perl/META.yml Mon Jan 11 17:15:53 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.34
+version: 0.35
Modified: trunk/libaspect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/changelog?rev=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/changelog (original)
+++ trunk/libaspect-perl/debian/changelog Mon Jan 11 17:15:53 2010
@@ -1,8 +1,12 @@
-libaspect-perl (0.34-1) unstable; urgency=low
+libaspect-perl (0.35-1) UNRELEASED; urgency=low
- * New upstream release
+ [ Jonathan Yu ]
+ * New upstream release 0.34
- -- Jonathan Yu <jawnsy at cpan.org> Sun, 10 Jan 2010 10:39:38 -0500
+ [ gregor herrmann ]
+ * New upstream release 0.35.
+
+ -- gregor herrmann <gregoa at debian.org> Mon, 11 Jan 2010 18:15:20 +0100
libaspect-perl (0.33-1) unstable; urgency=low
Modified: trunk/libaspect-perl/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect.pm?rev=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect.pm (original)
+++ trunk/libaspect-perl/lib/Aspect.pm Mon Jan 11 17:15:53 2010
@@ -23,6 +23,7 @@
use Aspect::Advice::Before ();
use Aspect::Advice::After ();
use Aspect::Advice::AfterReturning ();
+use Aspect::Advice::AfterThrowing ();
use Aspect::Pointcut ();
use Aspect::Pointcut::Call ();
use Aspect::Pointcut::Cflow ();
@@ -30,9 +31,18 @@
use Aspect::Pointcut::OrOp ();
use Aspect::Pointcut::NotOp ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
our @ISA = 'Exporter';
-our @EXPORT = qw{ aspect around before after after_returning call cflow };
+our @EXPORT = qw{
+ aspect
+ around
+ before
+ after
+ after_returning
+ after_throwing
+ call
+ cflow
+};
# Internal data storage
my @FOREVER = ();
@@ -83,6 +93,14 @@
sub after_returning (&$) {
Aspect::Advice::AfterReturning->new(
+ code => $_[0],
+ pointcut => $_[1],
+ lexical => defined wantarray,
+ );
+}
+
+sub after_throwing (&$) {
+ Aspect::Advice::AfterThrowing->new(
code => $_[0],
pointcut => $_[1],
lexical => defined wantarray,
Modified: trunk/libaspect-perl/lib/Aspect/Advice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice.pm?rev=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice.pm Mon Jan 11 17:15:53 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/After.pm Mon Jan 11 17:15:53 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm Mon Jan 11 17:15:53 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Around.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Around.pm Mon Jan 11 17:15:53 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Before.pm Mon Jan 11 17:15:53 2010
@@ -10,7 +10,7 @@
use Aspect::Advice ();
use Aspect::AdviceContext ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/AdviceContext.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/AdviceContext.pm Mon Jan 11 17:15:53 2010
@@ -5,7 +5,7 @@
use Carp ();
use Sub::Uplevel ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
@@ -109,15 +109,27 @@
}
sub return_value {
- my ($self, $value) = @_;
- if ( @_ > 1 ) {
- $self->{return_value} = $value;
+ my $self = shift;
+ if ( @_ ) {
+ $self->{return_value} = shift;
+ if ( defined $self->{exception} ) {
+ $self->{exception} = '';
+ }
$self->{proceed} = 0;
}
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 {
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm Mon Jan 11 17:15:53 2010
@@ -12,7 +12,7 @@
use Aspect::Advice::Before ();
use Aspect::Library::Listenable::Event ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm Mon Jan 11 17:15:53 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm Mon Jan 11 17:15:53 2010
@@ -6,7 +6,7 @@
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm Mon Jan 11 17:15:53 2010
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Cflow ();
use Aspect::Pointcut::AndOp ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Modular.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Modular.pm Mon Jan 11 17:15:53 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut.pm Mon Jan 11 17:15:53 2010
@@ -7,7 +7,7 @@
use Aspect::Pointcut::AndOp ();
use Aspect::Pointcut::NotOp ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm Mon Jan 11 17:15:53 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm Mon Jan 11 17:15:53 2010
@@ -5,7 +5,7 @@
use Carp;
use Aspect::Pointcut ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm Mon Jan 11 17:15:53 2010
@@ -6,7 +6,7 @@
use Aspect::Pointcut ();
use Aspect::AdviceContext ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm Mon Jan 11 17:15:53 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
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=50711&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm Mon Jan 11 17:15:53 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.34';
+our $VERSION = '0.35';
our @ISA = 'Aspect::Pointcut';
sub new {
More information about the Pkg-perl-cvs-commits
mailing list