File Coverage

blib/lib/Aspect/Library/Singleton.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	35	39	89.7

package Aspect::Library::Singleton;

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

our $VERSION = '0.97_06';
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;
				unless ( $_->exception ) {
					$CACHE{$class} = $_->return_value;
				}
			}
		},
	);
}

1;

__END__