File Coverage

blib/lib/Role/Multiton.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition	2	3	66.6
subroutine	4	4	100.0
pod	2	2	100.0
total	19	20	95.0

package Role::Multiton;

## no critic (RequireUseStrict) - Role::Tiny does strict
use Role::Tiny;

$Role::Multiton::VERSION = '0.2';

use Role::_Multiton ();

sub instance { goto &multiton; }

sub multiton {
    my ( $self, @args ) = @_;

    my $arg_key = Role::_Multiton::_get_arg_key( \@args );

    my $multiton_hr = Role::_Multiton::_get_multiton_lookup_hr($self);

    return $multiton_hr->{$arg_key} ||= $self->new(@args);
}

# Need these or YAGNI?
#
# sub get_multiton_lookup_hr { goto &Role::_Multiton::_get_multiton_lookup_hr; }
#
# sub get_my_multiton_key {
#     my ($self) = @_;
#
#     my $multiton_hr = $self->get_multiton_lookup_hr();
#     for my $arg_key ( keys %{ $multiton_hr } ) {
#         if ( "$multiton_hr->{$arg_key}" eq "$self" ) {
#             return $arg_key;
#         }
#     }
#
#     return;
# }
#
# sub clear_my_multiton_key {
#     my ($self) = @_;
#
#     my $arg_key     = $self->get_multiton_arg_key() || return;
#     my $multiton_hr = $self->get_multiton_lookup_hr();
#
#     return delete $multiton_hr->{$arg_key};
# }

1;

__END__