File Coverage

blib/lib/Aspect/Library/Singleton.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	29	32	90.6

package Aspect::Library::Singleton;

use strict;
use Aspect::Modular        ();
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();

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

my %CACHE = ();

sub get_advice {
	my $self = shift;
	Aspect::Advice::Around->new(
		lexical  => $self->lexical,
		pointcut => Aspect::Pointcut::Call->new(shift),
		code     => sub {
			my $class = $_->self;
			$class    = ref $class || $class;
			if ( exists $CACHE{$class} ) {
				$_->return_value($CACHE{$class});
			} else {
				$_->proceed;
				$CACHE{$class} = $_->return_value;
			}
		},
	);
}

1;

__END__