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

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

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

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

 view release on metacpan or  search on metacpan

lib/McBain.pm  view on Meta::CPAN

sub import {
	my $target = caller;
	return if $target eq 'main';
	my $me = shift;
	strict->import;
	warnings->import(FATAL => 'all');
	return if $INFO{$target};

	# find the root of this API (if it's not this class)
	my $root = _find_root($target);

 view release on metacpan or  search on metacpan

t/lib/sugar.pm  view on Meta::CPAN

sub import {
    my $class = shift;
    my $caller = caller;
    my %args = @_;

    strict->import;
    warnings->import;
    Method::Signatures::Simple::ParseKeyword->import(into => $caller);
}

1;

 view release on metacpan or  search on metacpan

lib/Mic.pm  view on Meta::CPAN

our %Contracts_for;
our %Spec_for;
our %Util_class;

sub import {
    strict->import();
}

sub load_class {
    my ($class, $spec) = @_;

 view release on metacpan or  search on metacpan

lib/Minions/Implementation.pm  view on Meta::CPAN

use Readonly;

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

    strict->import();

    $arg{-caller} = (caller)[0];
    $class->define(%arg);
}

 view release on metacpan or  search on metacpan

lib/Mite/Shim.pm  view on Meta::CPAN

    my $class = shift;
    my($caller, $file) = caller;

    # Turn on warnings and strict in the caller
    warnings->import;
    strict->import;

    if( _is_compiling() ) {
        require Mite::Project;
        Mite::Project->default->inject_mite_functions(
            package     => $caller,

 view release on metacpan or  search on metacpan

lib/Modern/PBP/Perl.pm  view on Meta::CPAN

   # --- Activate Perl version and import features -----------------------------
   my $use = "use qw{$use_perl_version}";
   eval {$use} or confess "Can't execute '$use'\n";
   warnings->import;
   strict->import;
   version->import;
   feature->import($version_tag);
   mro::set_mro( scalar caller(), 'c3' );

   # --- Import additional features --------------------------------------------

 view release on metacpan or  search on metacpan

lib/Modern/Perl.pm  view on Meta::CPAN

    my $feature_tag    = validate_date( $date );
    undef $wanted_date;

    warnings->import;
    strict->import;
    feature->unimport( $unimport_tag );
    feature->import( $feature_tag );

    if ($feature_tag ge ':5.34') {
        feature->import( 'signatures' );

 view release on metacpan or  search on metacpan

t/TestModuleManifestSkip.pm  view on Meta::CPAN

our $LIB = abs_path 'lib';
our $TEMPLATE = Module::Manifest::Skip->read_file('share/MANIFEST.SKIP');
our @EXPORT = qw[read_file copy_file cwd abs_path $HOME $LIB $TEMPLATE];

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

sub read_file {