r49988 - in /trunk/libaspect-perl: ./ debian/ lib/ lib/Aspect/ lib/Aspect/Advice/ lib/Aspect/Library/ lib/Aspect/Pointcut/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 3 01:16:16 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 3 01:16:03 2010
New Revision: 49988
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49988
Log:
New upstream release
Added:
trunk/libaspect-perl/t/01_context.t
- copied unchanged from r49987, branches/upstream/libaspect-perl/current/t/01_context.t
trunk/libaspect-perl/t/02_closure.t
- copied unchanged from r49987, branches/upstream/libaspect-perl/current/t/02_closure.t
trunk/libaspect-perl/t/03_main.t
- copied unchanged from r49987, branches/upstream/libaspect-perl/current/t/03_main.t
trunk/libaspect-perl/t/04_caller.t
- copied unchanged from r49987, branches/upstream/libaspect-perl/current/t/04_caller.t
Removed:
trunk/libaspect-perl/t/01_all.t
trunk/libaspect-perl/t/02_caller.t
trunk/libaspect-perl/t/03_context.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/Before.pm
trunk/libaspect-perl/lib/Aspect/AdviceContext.pm
trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm
trunk/libaspect-perl/lib/Aspect/Library/Memoize.pm
trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm
trunk/libaspect-perl/lib/Aspect/Library/TestClass.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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/Changes (original)
+++ trunk/libaspect-perl/Changes Sun Jan 3 01:16:03 2010
@@ -1,4 +1,12 @@
Revision history for Perl extension Aspect
+
+0.27 Sun 3 Jan 2010
+ - Various micro-optimisation of Aspect::AdviceContext which would
+ normally be somewhat pointless, but is useful in this case when
+ an Aspect hook is applied to something which is in the hot loop
+ for some program.
+ - Added a test script to specifically hunt down the problems with
+ variable sharing in string-eval'ed closures.
0.26 Thu 31 Dec 2009 - Adam Kennedy
- With the primary internals refactoring completely, we now start
Modified: trunk/libaspect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/MANIFEST?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/MANIFEST (original)
+++ trunk/libaspect-perl/MANIFEST Sun Jan 3 01:16:03 2010
@@ -39,9 +39,10 @@
MANIFEST This list of files
META.yml
README
-t/01_all.t
-t/02_caller.t
-t/03_context.t
+t/01_context.t
+t/02_closure.t
+t/03_main.t
+t/04_caller.t
t/05_wantarray.t
t/97_meta.t
t/98_pod.t
Modified: trunk/libaspect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/META.yml?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/META.yml (original)
+++ trunk/libaspect-perl/META.yml Sun Jan 3 01:16:03 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.26
+version: 0.27
Modified: trunk/libaspect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/changelog?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/changelog (original)
+++ trunk/libaspect-perl/debian/changelog Sun Jan 3 01:16:03 2010
@@ -1,3 +1,9 @@
+libaspect-perl (0.27-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 02 Jan 2010 20:17:50 -0500
+
libaspect-perl (0.26-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libaspect-perl/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect.pm?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect.pm (original)
+++ trunk/libaspect-perl/lib/Aspect.pm Sun Jan 3 01:16:03 2010
@@ -21,7 +21,7 @@
use Aspect::Pointcut::Call ();
use Aspect::Pointcut::Cflow ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Exporter';
our @EXPORT = qw{ aspect before after call cflow };
@@ -609,7 +609,7 @@
Copyright 2001 by Marcel GrE<uuml>nauer
-Some parts copyright 2009 Adam Kennedy.
+Some parts copyright 2009 - 2010 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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice.pm Sun Jan 3 01:16:03 2010
@@ -7,7 +7,7 @@
use Aspect::Advice::After ();
use Aspect::Advice::Before ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
sub new {
my $self = bless {
@@ -102,16 +102,24 @@
=head1 AUTHORS
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
+
Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/After.pm Sun Jan 3 01:16:03 2010
@@ -10,7 +10,7 @@
use Sub::Uplevel ();
use Aspect::Advice ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Before.pm Sun Jan 3 01:16:03 2010
@@ -9,7 +9,7 @@
use Carp ();
use Aspect::Advice ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/AdviceContext.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/AdviceContext.pm Sun Jan 3 01:16:03 2010
@@ -4,7 +4,14 @@
use warnings;
use Carp ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
+
+
+
+
+
+######################################################################
+# Constructor and Built-In Accessors
sub new {
my $class = shift;
@@ -15,92 +22,106 @@
return $self;
}
+sub sub_name {
+ $_[0]->{sub_name};
+}
+
+sub wantarray {
+ $_[0]->{wantarray};
+}
+
+sub proceed {
+ $_[0]->{proceed} = $_[1] if @_ > 1;
+ $_[0]->{proceed};
+}
+
+sub params_ref {
+ $_[0]->{params};
+}
+
+sub self {
+ $_[0]->{params}->[0];
+}
+
+sub params {
+ $_[0]->{params} = [ @_[1..$#_] ] if @_ > 1;
+ return CORE::wantarray
+ ? @{$_[0]->{params}}
+ : $_[0]->{params};
+}
+
+sub append_param {
+ my $self = shift;
+ push @{$self->{params}}, @_;
+ return 1;
+}
+
+sub append_params {
+ shift->append_param(@_);
+}
+
+
+
+
+
+######################################################################
+# Higher Level Methods
+
+sub package_name {
+ my $self = shift;
+ my $name = $self->{sub_name};
+ return '' unless $name =~ /::/;
+ $name =~ s/::[^:]+$//;
+ return $name;
+}
+
+sub short_sub_name {
+ my $self = shift;
+ my $name = $self->{sub_name};
+ return $name unless $name =~ /::/;
+ $name =~ /::([^:]+)$/;
+ return $1;
+}
+
sub run_original {
my $self = shift;
my $original = $self->original;
my @params = $self->params;
my $return_value;
- if ( wantarray ) {
+ if ( CORE::wantarray ) {
$return_value = [ $original->(@params) ];
} else {
$return_value = $original->(@params);
}
- $self->return_value($return_value);
- return $self->return_value;
-}
-
-sub proceed {
- my ($self, $value) = @_;
- return $self->get_value('proceed') if @_ == 1;
- $self->{proceed} = $value;
- return $self;
-}
-
-sub append_param {
- my ($self, @param) = @_;
- push @{$self->params}, @param;
- return $self;
-}
-
-sub append_params {
- shift->append_param(@_);
-}
-
-sub params {
- my ($self, @value) = @_;
- return $self->get_value('params') if @_ == 1;
- $self->{params} = \@value;
- return $self;
-}
-
-sub params_ref {
- $_[0]->{params};
-}
-
-sub self {
- $_[0]->{params}->[0];
-}
-
-sub package_name {
- my $self = shift;
- my $name = $self->sub_name;
- return '' unless $name =~ /::/;
- $name =~ s/::[^:]+$//;
- return $name;
-}
-
-sub short_sub_name {
- my $self = shift;
- my $name = $self->sub_name;
- return $name unless $name =~ /::/;
- $name =~ /::([^:]+)$/;
- return $1;
+ return $self->return_value($return_value);
}
sub return_value {
my ($self, $value) = @_;
- if (@_ == 1) {
- my $return_value = $self->get_value('return_value');
- return wantarray && ref $return_value eq 'ARRAY'?
- @$return_value: $return_value;
+ if ( @_ > 1 ) {
+ $self->{return_value} = $value;
+ $self->{proceed} = 0;
}
- $self->{return_value} = $value;
- $self->{proceed} = 0;
- return $self;
-}
-
-sub AUTOLOAD {
- my $self = shift;
- my $key = our $AUTOLOAD;
- $key =~ s/^.*:://;
- return $self->get_value($key);
+ my $return_value = $self->get_value('return_value');
+ return (CORE::wantarray && ref $return_value eq 'ARRAY')
+ ? @$return_value
+ : $return_value;
}
sub get_value {
my ($self, $key) = @_;
Carp::croak "Key does not exist: [$key]" unless exists $self->{$key};
my $value = $self->{$key};
- return wantarray && ref $value eq 'ARRAY'? @$value: $value;
+ 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);
}
# Improves performance by not having to send DESTROY calls
@@ -239,16 +260,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
-
-Ran Eilam C<< <eilara at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
+
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+
+Some parts copyright 2009 - 2010 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm Sun Jan 3 01:16:03 2010
@@ -11,7 +11,7 @@
use Aspect;
use Aspect::Modular ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = qw{Aspect::Modular Exporter};
our @EXPORT = qw{add_listener remove_listener};
@@ -595,16 +595,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
-
-Ran Eilam C<< <eilara at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
+
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+
+Some parts copyright 2009 - 2010 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
Modified: trunk/libaspect-perl/lib/Aspect/Library/Memoize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Memoize.pm?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Memoize.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Memoize.pm Sun Jan 3 01:16:03 2010
@@ -7,7 +7,7 @@
use Aspect;
use Aspect::Modular ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Modular';
sub get_advice {
@@ -78,16 +78,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm Sun Jan 3 01:16:03 2010
@@ -6,7 +6,7 @@
use Aspect;
use Aspect::Modular ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Modular';
my %Cache;
@@ -109,14 +109,23 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 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/TestClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/TestClass.pm?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/TestClass.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/TestClass.pm Sun Jan 3 01:16:03 2010
@@ -7,7 +7,7 @@
use Aspect;
use Aspect::Modular ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Modular';
sub Test::Class::make_subject {
@@ -115,14 +115,23 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm Sun Jan 3 01:16:03 2010
@@ -6,7 +6,7 @@
use Aspect;
use Aspect::Modular ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Modular';
sub get_advice {
@@ -146,14 +146,23 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Modular.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Modular.pm Sun Jan 3 01:16:03 2010
@@ -5,7 +5,7 @@
use Carp;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
# creating --------------------------------------------------------------------
@@ -111,16 +111,19 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut.pm?rev=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut.pm Sun Jan 3 01:16:03 2010
@@ -9,7 +9,7 @@
use Aspect::Pointcut::AndOp ();
use Aspect::Pointcut::NotOp ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
use overload (
'|' => sub { Aspect::Pointcut::OrOp->new(@_) },
@@ -114,16 +114,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/AndOp.pm Sun Jan 3 01:16:03 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Pointcut';
sub new {
@@ -63,16 +63,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm Sun Jan 3 01:16:03 2010
@@ -5,7 +5,7 @@
use Carp;
use Aspect::Pointcut ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Pointcut';
sub new {
@@ -54,16 +54,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm Sun Jan 3 01:16:03 2010
@@ -6,7 +6,7 @@
use Aspect::Pointcut ();
use Aspect::AdviceContext ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Pointcut';
sub new {
@@ -95,16 +95,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/NotOp.pm Sun Jan 3 01:16:03 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Pointcut';
sub new {
@@ -56,16 +56,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
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=49988&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/OrOp.pm Sun Jan 3 01:16:03 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.26';
+our $VERSION = '0.27';
our @ISA = 'Aspect::Pointcut';
sub new {
@@ -63,16 +63,24 @@
=head1 AUTHORS
-Marcel GrE<uuml>nauer, C<< <marcel at cpan.org> >>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-Ran Eilam C<< <eilara at cpan.org> >>
+Marcel GrE<uuml>nauer E<lt>marcel at cpan.orgE<gt>
+
+Ran Eilam E<lt>eilara at cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+You can find AOP examples in the C<examples/> directory of the
+distribution.
=head1 COPYRIGHT AND LICENSE
Copyright 2001 by Marcel GrE<uuml>nauer
+Some parts copyright 2009 - 2010 Adam Kennedy.
+
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
-
More information about the Pkg-perl-cvs-commits
mailing list