view release on metacpan or  search on metacpan

lib/Marlin/Antlers.pm  view on Meta::CPAN

	$globals->{installer} ||= $me->_exporter_lexical_installer( $globals );
	
	experimental->import::into( $pkg, qw( signatures postderef lexical_subs ) );
	feature->import::into( $pkg, qw( current_sub evalbytes fc say state unicode_eval unicode_strings ) );
	strict->import::into( $pkg );
	warnings->import::into( $pkg );
	Marlin::Util->import::into( $pkg, -lexical, -all );
	Types::Common->import::into( $pkg, -lexical, -all, qw( !signature !signature_for ) );
	namespace::autoclean->import::into( $pkg );
	

 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/Prelude.pm  view on Meta::CPAN

    my $target = caller;
    my $config = _parse_args(@args);

    _validate_config($config);

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

    feature->import::into($target, @FEATURES);

    Feature::Compat::Try->import::into($target);

 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

script/check-module-version  view on Meta::CPAN

#}
#
#sub import {
#  my $target = caller;
#  my $me = shift;
#  strict->import;
#  warnings->import;
#  my $non_methods = $me->_non_methods($target);
#  $me->_install_subs($target, @_);
#  $me->make_role($target);
#  $me->_mark_new_non_methods($target, $non_methods)

 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 {

 view release on metacpan or  search on metacpan

share/boilerplate.pm  view on Meta::CPAN

use Test::Requires { version => 0.88 };

use version; our $VERSION = qv( '0.3' );

sub import {
   strict->import;
   $] < 5.008 ? warnings->import : warnings->import( NONFATAL => 'all' );
   return;
}

1;

 view release on metacpan or  search on metacpan

lib/Module/Setup/Test/Flavor.pm  view on Meta::CPAN

    for my $func (qw/ run_flavor_test name flavor files file dirs options default_dialog dialog /) {
        no strict 'refs';
        *{"$caller\::$func"} = \&{ $func };
    }

    strict->import;
    warnings->import;
}

my $tests = {};
sub name ($) {

 view release on metacpan or  search on metacpan

t/Helper.pm  view on Meta::CPAN

  eval <<"  CODE" or die $@;
  package $caller;
  use Mojo::Base -base;
  use Test::More;
  strict->import;
  warnings->import;
  1;
  CODE
}

 view release on metacpan or  search on metacpan

t/Helper.pm  view on Meta::CPAN

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

  strict->import;
  warnings->import;

  eval <<"HERE" or die $@;
  package $caller;
  use Test::More;

 view release on metacpan or  search on metacpan

t/Helper.pm  view on Meta::CPAN

  my $class  = shift;
  my $caller = caller;

  unlink glob 't/public/packed/*' unless $ENV{TEST_KEEP_FILES};

  strict->import;
  warnings->import;

  eval <<"  CODE" or die $@;
  package $caller;
  use Test::More;

 view release on metacpan or  search on metacpan

t/App.pm  view on Meta::CPAN

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

  strict->import;
  warnings->import;

  no strict 'refs';
  *{"$caller\::t"} = \$class->make_app;
}

 view release on metacpan or  search on metacpan

t/Helper.pm  view on Meta::CPAN

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

  strict->import;
  warnings->import;

  eval <<"HERE" or die;
package $caller;
use Test::Mojo;

 view release on metacpan or  search on metacpan

lib/Momo.pm  view on Meta::CPAN

            };
        }
        set_prototype \&{ $package . '::extends' }, '@';
        set_prototype \&{ $package . '::with' },    '@';
    }
    strict->import;
    warnings->import;
    utf8->import;
    Carp->import;
    if ( $] >= 5.010 ) {
        require 'feature.pm';

 view release on metacpan or  search on metacpan

lib/MongoDBx/Tiny.pm  view on Meta::CPAN

    my $caller = (caller(0))[0];
    {
	no strict 'refs';
	push @{"${caller}::ISA"}, __PACKAGE__;
    }
    strict->import;
    warnings->import;
    __PACKAGE__->export_to_level(1, @_);
}

require Exporter;

 view release on metacpan or  search on metacpan

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

        *{"${caller}::agent"} = \&agent;
        use strict;
    }

    warnings->import;
    strict->import;

    eval <<END;
        package $caller;
        Test::More->import(\%params);
END

 view release on metacpan or  search on metacpan

lib/Moo.pm  view on Meta::CPAN

    croak "Cannot import Moo into a role";
  }

  _set_loaded(caller);

  strict->import;
  warnings->import;

  $class->_install_subs($target, @_);
  $class->make_class($target);
  return;

 view release on metacpan or  search on metacpan

t/Test/abeltje.pm  view on Meta::CPAN

sub import_extra {
    # use Test::Warnings 'warnings' interferes
    # with warnings->import()
    warnings::import('warnings');
    strict->import();

    require feature;
    feature->import(':5.10');

    require lib;

 view release on metacpan or  search on metacpan

lib/MooX/Pression.pm  view on Meta::CPAN

	}
	
	# Export utility stuff
	#
	MooX::Pression::_Gather->import::into($caller, -gather => %opts);
	strict->import::into($caller);
	warnings->import::into($caller);
	MooX::Press::Keywords->import::into($caller, $_)
		for grep $want{$_}, qw(-booleans -privacy -util);
	Syntax::Keyword::Try->import::into($caller) if $want{try};
	if ($] >= 5.018) {

 view release on metacpan or  search on metacpan

t/Test/abeltje.pm  view on Meta::CPAN

sub import_extra {
    # use Test::Warnings 'warnings' interferes
    # with warnings->import()
    warnings::import('warnings');
    strict->import();

    require feature;
    feature->import(':5.10');

    require lib;

 view release on metacpan or  search on metacpan

t/Test/abeltje.pm  view on Meta::CPAN

sub import_extra {
    # use Test::Warnings 'warnings' interferes
    # with warnings->import()
    warnings::import('warnings');
    strict->import();

    require feature;
    feature->import(':5.10');

    require lib;

 view release on metacpan or  search on metacpan

lib/Moos.pm  view on Meta::CPAN

use constant default_metarole  => 'Moos::Meta::Role';
use constant default_base_class => 'Moos::Object';

sub import {
    # Turn on strict/warnings for caller
    strict->import;
    warnings->import;

    ($_[1]||'') eq -Role and goto \&role_import;

    my ($class, %args) = @_;

 view release on metacpan or  search on metacpan

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

        # perlvar) which affects the current compilation -
        # i.e. the file who use'd us - which is why we don't need
        # to do anything special to make it affect that file
        # rather than this one (which is already compiled)

        strict->import;
        warnings->import;

        my $did_init_meta;
        for my $c ( grep { $_->can('init_meta') } $class, @{$exports_from} ) {

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

        $meta_lookup->($opts{for_class});
    };
}

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

1;

 view release on metacpan or  search on metacpan

lib/MooseX/Compile/Compiler.pm  view on Meta::CPAN

        $__mx_compile_overridden_imports{$class} = defined &$import && \&$import;

        *$import = sub {
            if ( caller eq $$quoted_class$$ ) {
                if ( $class eq 'Moose' ) {
                    strict->import;
                    warnings->import;
                }

                return;
            }

 view release on metacpan or  search on metacpan

lib/MooseX/Declare.pm  view on Meta::CPAN

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

    my $caller = caller();

    strict->import;
    warnings->import;

    for my $keyword ($class->keywords) {
        $keyword->setup_for($caller, %args, provided_by => $class);
    }