view release on metacpan or  search on metacpan

src/Perlito5/Grammar/Use.pm  view on Meta::CPAN

    }

    return Perlito5::Grammar::Block::ast_nop();
}

sub emit_time_eval {
    my $ast = shift;

    if ($ast->{mod} eq 'strict') {
        if ($ast->{code} eq 'use') {
            strict->import();
        }
        elsif ($ast->{code} eq 'no') {
            strict->unimport();
        }
    }
}

sub modulename_to_filename {
    my $s = shift;
    $s = $Perlito_internal_module{$s}