File Coverage

blib/lib/Aspect/Pointcut/Highest.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	4	4	100.0
total	45	45	100.0

package Aspect::Pointcut::Highest;

use strict;
use warnings;
use Carp                               ();
use Scalar::Util                       ();
use Params::Util                       ();
use Aspect::Guard                      ();
use Aspect::Pointcut                   ();

our $VERSION = '0.97_06';
our @ISA     = 'Aspect::Pointcut';





######################################################################
# Constructor Methods

sub new {
	bless [ ], $_[0];
}





######################################################################
# Weaving Methods

# The highest pointcut is a run-time only pointcut
sub curry_weave {
	return;
}

# Call pointcuts curry away to null, because they are the basis
# for which methods to hook in the first place. Any method called
# at run-time has already been checked.
sub curry_runtime {
	bless [ 0 ], $_[0];
}





######################################################################
# Runtime Methods

sub compile_runtime {
	my $depth = 0;
	return sub {
		$_->{highest} = Aspect::Guard->new( sub { $depth-- } );
		return ! $depth++;
	};
}

1;

__END__