view release on metacpan or  search on metacpan

lib/Scope/With.pm  view on Meta::CPAN

the C<set_invocant> method, which provides it conflicting with any prior or subsequent subroutines
of that name, but it leaves the lexical delegating subs intact.

If no class is specified in the C<with> statement, then only C<AUTOLOAD> and C<set_invocant>
are installed in the scope, and C<use Scope::With::Inject> is called with no argument.

=end comment

=cut

sub with(&) { $_[0]->() }

sub import {
    my $class   = shift;
    my $keyword = shift || 'with';
    my $caller  = Devel::Declare::get_curstash_name;

    Devel::Declare->setup_for(
        $caller,
        {
            $keyword => {