File Coverage

blib/lib/Sub/SingletonBuilder.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition	4	6	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	30	33	90.9

package Sub::SingletonBuilder;

use strict;
use warnings;

use base qw/Exporter/;

our @EXPORT = qw/build_singleton/;
our $VERSION = '0.02';

sub build_singleton {
    my ($ctor, $dtor) = @_;
    my $instance = undef;
    my $getter = sub {
        $instance ||= $ctor->();
    };
    wantarray && $dtor
        ? (
            $getter,
            sub {
                $dtor->($instance) if $instance;
                $instance = undef;
            },
        )
            : $getter;
}

1;
__END__