File Coverage

blib/lib/Aspect/Library/TestClass.pm

Criterion	Covered	Total	%
statement	27	43	62.7
branch	0	10	0.0
condition			n/a
subroutine	9	12	75.0
pod	0	2	0.0
total	36	67	53.7

package Aspect::Library::TestClass;

use 5.006;
use strict;
use warnings;
use Test::Class       0.33 ();
use Params::Util      1.00 ();
use Aspect::Modular   1.00 ();
use Aspect::Advice::Before ();
use Aspect::Pointcut::And  ();
use Aspect::Pointcut::Call ();

our $VERSION = '1.00';
our @ISA     = 'Aspect::Modular';

sub Test::Class::make_subject {
	shift->subject_class->new(@_);
}

sub get_advice {
	my $self     = shift;
	my $pointcut = shift;
	Aspect::Advice::Before->new(
		lexical => $self->lexical,
		pointcut => Aspect::Pointcut::And->new(
			Aspect::Pointcut::Call->new(qr/::[a-z][^:]*$/),
			$pointcut,
		),
		code => sub {
			my $self   = $_->self;
			my @method = ( $_->package_name, $_->short_name );

			# Are we in a test class, in a test method, and can
			# we get a subject_class from the test class.
			# Would be nice if we could check for existence of test
			# attribute on the method.
			Params::Util::_INSTANCE($self, 'Test::Class') or return;
			$self->_method_info(@method)                  or return;
			$self->can('subject_class')                   or return;

			my @params = ();
			if ( $self->can('subject_params') ) {
				@params = $self->subject_params;
			}
			my $subject = $self->make_subject(@params);
			if ( $self->can('init_subject_state') ) {
				$self->init_subject_state($subject)
			}
			$_->args( $_->args, $subject );
		},
	);
}

1;

__END__