File Coverage

blib/lib/Data/Object/Singleton.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	35	36	97.2

# ABSTRACT: Singleton Declaration for Perl 5
package Data::Object::Singleton;

use 5.010;
use parent 'Moo';

our $VERSION = '0.41'; # VERSION

sub import {
    my $class  = shift;
    my $target = caller;
    my $state  = undef;

    eval "package $target; use Moo; 1;";

    my $new   = $target->can('new');
    my $renew = $target->can('renew');

    no strict 'refs';

    *{"${target}::new"}   = sub { $state = $new->(@_)   if !$state; $state };
    *{"${target}::renew"} = sub { $state = $new->(@_) } if !$renew;

    return;
}

1;

__END__