File Coverage

blib/lib/Memoize/Attrs.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	8	12	66.6
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	45	54	83.3

package Memoize::Attrs;

use strict;
use warnings;

our $VERSION = '0.00_03';

use Attribute::Handlers;
use Memoize;

# $qualified_name = _qualify_name($name, $package)
sub _qualify_name {
    my $name = shift;
    my $package = shift;
    return undef unless defined $name;
    if ( $name =~ /::/ ) {
        # already a fully qualified name
        return $name
    } else {
        # resolves to the given package
        return $package . '::' . $name
    }

}

#sub MEMOIZE :ATTR(CODE, CHECK) {
sub UNIVERSAL::MEMOIZE :ATTR(CODE, CHECK) {
    my ($package, $symbol, $code, $attr, $data, $phase) = @_;

    my %options =  (
        (ref $data) ? @$data
                    : ( defined($data) ? ($data) : () )
    );

    # qualify the install name (eg, 'foo' to 'caller::foo')
    if ( exists $options{INSTALL} ) {
        # explicit INSTALL => name
        $options{INSTALL} = _qualify_name($options{INSTALL}, $package);
    } else {
        # No INSTALL option provided: use the original name
        $options{INSTALL} = *{$symbol}{PACKAGE} . '::' . *{$symbol}{NAME};
    }
    # XXX INSTALL => undef   makes no sense to this module !!!

    # qualify the normalizer name (if given)
    if ( exists $options{NORMALIZER} && !ref $options{NORMALIZER} ) {
            $options{NORMALIZER} = _qualify_name($options{NORMALIZER}, $package);
    }

    memoize($code, %options );

}

# XXX instead of Installing handlers into UNIVERSAL,
#       install it into the caller of import

1;

__END__