view release on metacpan or  search on metacpan

lib/Import/Into.pm  view on Meta::CPAN

  }

doesn't do what you wanted, but

  sub import {
    strict->import;
  }

will apply L<strict> to the calling file correctly.

Of course, now you have two new problems - first, that you still need to

 view release on metacpan or  search on metacpan

lib/JBD/Core/stern.pm  view on Meta::CPAN

    no strict 'refs';
    my $depth = shift || 0;
    *{(caller($depth))[0] ."::$_"} = *$_ for qw(puke barf);

    warnings->import;
    strict->import;
}

1;

__END__

 view release on metacpan or  search on metacpan

lib/JCM/Boilerplate.pm  view on Meta::CPAN

sub import ( $self, $type = 'script' ) {
    ### assert: ($type =~ m/^(?:class|role|script)$/ms)

    my $target = caller;

    strict->import::into($target);
    warnings->import::into($target);
    autodie->import::into($target);

    feature->import::into( $target, ':5.22' );

 view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

    Class::Load::try_load_class('DBD::SQLite')
        or plan skip_all => 'needs DBD::SQLite for testing'
}

sub import {
    strict->import;
    warnings->import;
    utf8->import;
}

sub setup_dbh {

 view release on metacpan or  search on metacpan

t/JCT.pm  view on Meta::CPAN

    @JSON::Create::EXPORT_OK,
);

sub import
{
    strict->import ();
    utf8->import ();
    warnings->import ();

    Test::More->import ();
    JSON::Create->import (':all');

 view release on metacpan or  search on metacpan

lib/JSON/Karabiner/Manipulator.pm  view on Meta::CPAN

our @EXPORT = qw'new_manipulator add_action add_description add_condition add_parameter add_key_code
  add_key_code add_any add_optional_modifiers add_mandatory_modifiers add_simultaneous add_simultaneous_options add_consumer_key_code add_pointing_button add_shell_command add_select_input_source add_set_variable add_mouse_key add_modifiers
  add_identifier add_description add_value add_bundle_identifiers add_file_path add_input_source add_keyboard_types add_variable add_description _dump_json _fake_write_file write_file set_filename set_title set_rule_name set_save_dir';

sub import {
  strict->import;
  warnings->import;
  goto &Exporter::import
}

sub new_manipulator {

 view release on metacpan or  search on metacpan

t/JPT.pm  view on Meta::CPAN

sub import
{
    my ($class) = @_;

    strict->import ();
    utf8->import ();
    warnings->import ();
    Test::More->import ();
    JSON::Parse->import (':all');
    JPT->export_to_level (1);

 view release on metacpan or  search on metacpan

t/JST.pm  view on Meta::CPAN

binmode STDOUT, ":encoding(utf8)";
binmode STDERR, ":encoding(utf8)";

sub import
{
    strict->import ();
    utf8->import ();
    warnings->import ();

    Test::More->import ();
    JSON::Parse->import (':all');

 view release on metacpan or  search on metacpan

lib/JSTAPd/Suite.pm  view on Meta::CPAN

    my $in_the_parse = do {
        no strict 'refs';
        ${"$caller\::IN_THE_PARSE"};
    };

    strict->import;
    warnings->import;
    if ($in_the_parse) {
        return;
    }

 view release on metacpan or  search on metacpan

lib/JCM/Boilerplate.pm  view on Meta::CPAN

sub import ( $self, $type = 'script' ) {
    ### assert: ($type =~ m/^(?:class|role|script)$/ms)

    my $target = caller;

    strict->import::into($target);
    warnings->import::into($target);
    autodie->import::into($target);

    my ($ver) = "$PERL_VERSION" =~ m/^v(\d+\.\d+)\..*$/;
    feature->import::into( $target, ":$ver" );

 view release on metacpan or  search on metacpan

lib/Jifty/DBI/Schema.pm  view on Meta::CPAN

sub import {
    no warnings qw( uninitialized numeric );
    $old_sig_die ||= $SIG{__DIE__};
    $SIG{__DIE__} = \&filter_die unless $SIG{__DIE__} and $SIG{__DIE__} == \&filter_die;

    strict->import;
    warnings->import;

    goto &Exporter::Lite::import;
}

 view release on metacpan or  search on metacpan

lib/Jifty/Dispatcher.pm  view on Meta::CPAN

        # User said "-base", let's push ourselves into their @ISA.
        push @{ $pkg . '::ISA' }, $class;

        # Turn on strict and warnings for them too, a la Moose
        strict->import;
        warnings->import;
    }

    $class->export_to_level( 1, @args );
}

 view release on metacpan or  search on metacpan

lib/Jojo/Role/Tiny.pm  view on Meta::CPAN

}

sub import {
  my $target = caller;
  my $me = shift;
  strict->import;
  warnings->import;
  $me->_install_subs($target);
  $me->make_role($target);
}

 view release on metacpan or  search on metacpan

lib/Kelp/Base.pm  view on Meta::CPAN

        namespace::autoclean->import(
            -cleanee => $caller
        );
    }

    strict->import;
    warnings->import;
    feature->import(':5.10');
}

sub new

 view release on metacpan or  search on metacpan

lib/Klonk/pragma.pm  view on Meta::CPAN

method import($class: @items) {
    for my $item (@items) {
        Carp::croak qq("$item" is not exported by the $class module);
    }

    strict->import;
    warnings->import;
    warnings->import(FATAL => 'uninitialized');
    feature->unimport(':all');
    feature->import(':' . MIN_PERL_VERSION);
    feature->unimport('bareword_filehandles');

 view release on metacpan or  search on metacpan

.claude/skills/perl-moo/SKILL.md  view on Meta::CPAN

```perl
package My::Mooish;
use Import::Into;
sub import {
    my $target = caller;
    strict->import::into($target);
    warnings->import::into($target);
    Moo->import::into($target);
    namespace::clean->import::into($target);   # after Moo, cleans stray imports
}

 view release on metacpan or  search on metacpan

lib/Lab/Moose.pm  view on Meta::CPAN

# See https://www.perlmonks.org/?node_id=1095522
# and https://metacpan.org/pod/Import::Into

sub import {
    __PACKAGE__->export_to_level( 1, @_ );
    strict->import();
    warnings->import();
}

sub instrument {
    my %args = validated_hash(

 view release on metacpan or  search on metacpan

.claude/skills/perl-moo/SKILL.md  view on Meta::CPAN

```perl
package My::Mooish;
use Import::Into;
sub import {
    my $target = caller;
    strict->import::into($target);
    warnings->import::into($target);
    Moo->import::into($target);
    namespace::clean->import::into($target);   # after Moo, cleans stray imports
}

 view release on metacpan or  search on metacpan

.claude/skills/perl-moo/SKILL.md  view on Meta::CPAN

```perl
package My::Mooish;
use Import::Into;
sub import {
    my $target = caller;
    strict->import::into($target);
    warnings->import::into($target);
    Moo->import::into($target);
    namespace::clean->import::into($target);   # after Moo, cleans stray imports
}

 view release on metacpan or  search on metacpan

t/LJMT.pm  view on Meta::CPAN

sub import
{
    my ($class) = @_;

    strict->import ();
    utf8->import ();
    warnings->import ();
    Test::More->import ();
    Lingua::JA::Moji->import (':all');
    LJMT->export_to_level (1);

 view release on metacpan or  search on metacpan

lib/Lingy/Test.pm  view on Meta::CPAN

sub collapse;
sub line;

sub import {
    strict->import;
    warnings->import;
    shift->export_to_level(1, @_);
}

sub rep {

 view release on metacpan or  search on metacpan

t/MaybeMaketextTestdata.pm  view on Meta::CPAN

# Automatically import warnings, strict and signature settings to the calling module.
sub import {    ## no critic (Subroutines::RequireArgUnpacking)

    warnings::warnings->import();
    strict::strict->import();
    feature->import(qw/:5.20 signatures/);

    warnings::warnings->unimport(qw/experimental::signatures/);
    MaybeMaketextTestdata->export_to_level( 1, @_ );
    return;

 view release on metacpan or  search on metacpan

.claude/skills/perl-moo/SKILL.md  view on Meta::CPAN

```perl
package My::Mooish;
use Import::Into;
sub import {
    my $target = caller;
    strict->import::into($target);
    warnings->import::into($target);
    Moo->import::into($target);
    namespace::clean->import::into($target);   # after Moo, cleans stray imports
}

 view release on metacpan or  search on metacpan

t/lib/QuickBundle/Test.pm  view on Meta::CPAN

our @EXPORT = ( qw(create_bundle), @Test::More::EXPORT );

sub import {
    shift;

    strict->import;
    Test::More->import( @_ );
    Exporter::export( __PACKAGE__, scalar caller );
}

sub create_bundle {

 view release on metacpan or  search on metacpan

lib/Mafia.pm  view on Meta::CPAN

};

################################################## Helper subs

sub import {
	strict->import;
	goto &Exporter::import;
}

my (%players, %tplayers, @actions);
my $daycnt = 0;

 view release on metacpan or  search on metacpan

lib/Mail/BIMI/Prelude.pm  view on Meta::CPAN

use Mail::BIMI::Constants;
use Carp;
use JSON;

sub import {
  strict->import;
  warnings->import;
  feature->import($_) for ( qw{ postderef signatures } );
  warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
  Mail::BIMI::Constants->import::into(scalar caller);
  Carp->import::into(scalar caller);

 view release on metacpan or  search on metacpan

lib/Mail/Milter/Authentication/App/Blocker/Pragmas.pm  view on Meta::CPAN

require feature;

use open ':std', ':encoding(UTF-8)';

sub import {
  strict->import();
  warnings->import();
  feature->import($_) for ( qw{ postderef signatures } );
  warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );
}

 view release on metacpan or  search on metacpan

lib/Mail/TLSRPT/Pragmas.pm  view on Meta::CPAN

use open ':std', ':encoding(UTF-8)';


sub import {
  strict->import;
  warnings->import;
  feature->import($_) for ( qw{ postderef signatures } );
  warnings->unimport($_) for ( qw{ experimental::postderef experimental::signatures } );

  Carp->import::into(scalar caller);

 view release on metacpan or  search on metacpan

lib/andel.pm  view on Meta::CPAN

sub import {
  my $class  = shift;
  my $caller = caller;

  strict->import;
  warnings->import;

  $class->_setup(@_) if @_;

  no strict 'refs';

 view release on metacpan or  search on metacpan

lib/Markdown/Compiler/Test.pm  view on Meta::CPAN

    shift->export_to_level(1);
    
    my $target = caller;

    warnings->import::into($target);
    strict->import::into($target);
    Test::More->import::into($target);
    Test::Deep->import::into($target);
}

# build_and_test