Aspect::Point::Static - The Join Point context for join point static parts

Aspect documentation

Contained in the Aspect distribution.

Index

NAME
DESCRIPTION
AUTHORS
COPYRIGHT

Code Index:

package Aspect::Point::Static
- return_value
- AUTOLOAD
__END__
EOF

NAME

Aspect::Point::Static - The Join Point context for join point static parts

DESCRIPTION

This class implements the "static part" join point object, normally encounted during (and stored by) the cflow pointcut declarator.

It implements the subset of Aspect::Point methods relating to the join point in general and not relating to the specific call to the join point.

AUTHORS

Adam Kennedy <adamk@cpan.org>

COPYRIGHT

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.

Aspect documentation

Contained in the Aspect distribution.

package Aspect::Point::Static;

use strict;
use warnings;
use Carp          ();
use Aspect::Point ();

our $VERSION = '1.01';
our @ISA     = 'Aspect::Point';





######################################################################
# Error on anything this doesn't support

sub return_value {
	Carp::croak("Cannot call return_value on static part of a join point");
}

sub AUTOLOAD {
	my $self = shift;
	my $key  = our $AUTOLOAD;
	$key =~ s/^.*:://;
	Carp::croak("Cannot call $key on static part of join point");
}

1;

__END__