File Coverage

blib/lib/Aspect/Library/Trace.pm

Criterion	Covered	Total	%
statement	26	32	81.2
branch	1	2	50.0
condition			n/a
subroutine	9	11	81.8
pod	0	1	0.0
total	36	46	78.2

package Aspect::Library::Trace;

use 5.006;
use strict;
use warnings;
use Aspect            1.00 ();
use Aspect::Modular        ();
use Aspect::Advice::Around ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '1.00';
	@ISA     = 'Aspect::Modular';
}

sub import {
	my $class = shift;

	if ( ref($_[0]) eq 'Regexp' ) {
		Aspect::aspect( Trace => Aspect::call($_[0]) );
	}

	return 1;
}

sub get_advice {
	my $depth = 0;
	Aspect::Advice::Around->new(
		lexical  => $_[0]->lexical,
		pointcut => $_[1],
		code     => sub {
			print STDERR '  ' x $depth++ . $_[0]->sub_name . "\n";
			$_[0]->proceed;
			$depth--;
		},
	);
}

1;

__END__