File Coverage

lib/Aspect/Pointcut/BinOp.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	4	0.0
total	26	32	81.2

package Aspect::Pointcut::BinOp;

use strict;
use warnings;
use Carp;

use base 'Aspect::Pointcut';

sub init {
	my $self = shift;
	$self->{left_op}  = shift;
	$self->{right_op} = shift;
}

sub match_define {
	my ($self, $sub_name) = @_;
	return $self->binop(
		$self->{left_op}->match_define($sub_name),
		$self->{right_op}->match_define($sub_name)
	);
}

sub match_run {
	my ($self, $sub_name, $runtime_context) = @_;
	return $self->binop(
		$self->{left_op }->match_run($sub_name, $runtime_context),
		$self->{right_op}->match_run($sub_name, $runtime_context)
	);
}

# template method to be defined in subclasses
sub binop { die "Must be implemented by subclass" }

1;