File Coverage

blib/lib/Goto/Cached.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod			n/a
total	39	42	92.8

package Goto::Cached;

use 5.008008;

use strict;
use warnings;

use B::Hooks::OP::Annotation;
use B::Hooks::OP::Check;
use B::Hooks::EndOfScope qw(on_scope_end);
use Devel::Pragma qw(my_hints);
use XSLoader;

our $VERSION = '0.22';

XSLoader::load 'Goto::Cached', $VERSION;

sub import {
    my $hints = my_hints;

    unless ($hints->{'Goto::Cached'}) {
        $hints->{'Goto::Cached'} = 1;
        on_scope_end \&_leave;
        _enter();
    }
}

sub unimport { delete my_hints->{'Goto::Cached'} }

1;

__END__