view release on metacpan or  search on metacpan

lib/Devel/Kit.pm  view on Meta::CPAN

        }
    }

    no strict 'refs';    ## no critic
    for my $l (qw(a d ei rx ri ni ci si yd jd xd sd md id pd fd dd ld ud gd bd vd ms ss s2 s3 s5 be bu ce cu xe xu ue uu he hu pe pu se su qe qu)) {
        *{ $caller . '::' . $pre . $l } = \&{$l};
    }

    unless ( grep( m/no/, @_ ) ) {
        require Import::Into;    # die here since we don't need it otherwise, so we know right off there's a problem, and so caller does not have to check status unless they want to
        strict->import::into($caller);
        warnings->import::into($caller);
    }
}

my $ak;

sub a {
    if ( !$ak ) {
        require App::Kit;
        $ak = App::Kit->instance;