view release on metacpan or  search on metacpan

lib/Catalyst/Plugin/Singleton.pm  view on Meta::CPAN

    no strict 'refs';
    return ${"$class\::_instance"};
}

sub prepare {
    my $class   = shift;
    my $context = $class->next::method(@_);

    {
        no strict 'refs';
        Scalar::Util::weaken( ${"$class\::_instance"} = $context );
    }

    return $context;
}

1;

__END__

=head1 NAME