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/Data/Couplet/Extension.pm view on Meta::CPAN
push @{ $config{-with_expanded} }, $plugin;
}
# Input validation and expansion et-all complete.
# Inject warnings/strict for caller.
strict->import();
warnings->import();
Moose->import( { into => $config{-into}, } );
$config{-into}->can('extends')->( $config{-base_package} );
$config{-into}->can('with')->( @{ $config{-with_expanded} } );
return;
view release on metacpan or search on metacpan
t/t_Common.pm view on Meta::CPAN
carp "Detected 'use/no warnings/strict' done before importing ",
__PACKAGE__, "\n(they might be un-done)\n"
if ($users_pragmas ne $default_pragmas
|| $users_warnbits ne $default_warnbits);
}
strict->import::into($target);
#warnings->import::into($target);
warnings->import::into($target, FATAL => 'all'); # blowing up a test is ok
#As of perl 5.39.8 multiple 'use' specifying Perl version is deprecated
#use 5.010; # say, state
view release on metacpan or search on metacpan
lib/Data/Frame/Setup.pm view on Meta::CPAN
sub _import_tag {
my ( $class, $target, $tag ) = @_;
if ( $tag eq ':base' ) {
strict->import::into($target);
warnings->import::into($target);
utf8->import::into($target);
feature->import::into( $target, ':5.16' );
Carp->import::into($target);
view release on metacpan or search on metacpan
t/lib/Utils.pm view on Meta::CPAN
use utf8;
use strict;
use warnings;
sub import {
strict->import;
warnings->import;
utf8->import;
}
my $dbh;
view release on metacpan or search on metacpan
use Data::MessagePack;
sub import {
my $pkg = caller(0);
strict->import;
warnings->import;
no strict 'refs';
*{"$pkg\::true"} = \&Data::MessagePack::true;
*{"$pkg\::false"} = \&Data::MessagePack::false;
view release on metacpan or search on metacpan
sub import {
my($class, %args) = @_;
my $caller = caller;
strict->import;
warnings->import;
for my $name (qw/ temp_filename run setup_schema teardown_schema /) {
no strict 'refs';
*{"$caller\::$name"} = \&{$name};
view release on metacpan or search on metacpan
lib/Data/Pipeline/Machine.pm view on Meta::CPAN
my($own_class) = @_;
my $CALLER = caller();
# see Moose.pm for explanation :-)
strict->import;
warnings->import;
return if $CALLER eq 'main';
my $machine = _machine($CALLER);
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
return $code->(@_) unless $@;
print $@;
}
sub init {
strict->import();
warnings->import();
lib->import( file(file(__FILE__)->dir )->stringify );
}
view release on metacpan or search on metacpan
t/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/Datahub/Factory/Sane.pm view on Meta::CPAN
use Try::Tiny::ByClass;
use Datahub::Factory::Error ();
sub import {
my $pkg = caller;
strict->import;
warnings->import;
feature->import(qw(:5.10));
utf8->import;
Try::Tiny::ByClass->export_to_level(1, $pkg);
}
view release on metacpan or search on metacpan
lib/Defaults/Mauke.pm view on Meta::CPAN
my $caller = caller;
croak qq{"$_" is not exported by the $class module} for @args;
strict->import;
warnings->import;
warnings->unimport(qw[recursion qw]);
utf8->import;
view release on metacpan or search on metacpan
lib/Devel/CompileLevel.pm view on Meta::CPAN
use warnings;
use Devel::CompileLevel qw(compile_caller);
sub import {
my $target = compile_caller or die "not compiling!";
strict->import;
warnings->import;
no strict 'refs';
# will export to same level as strict/warnings are applied to
*{"${target}::exported_sub"} = sub { ... };
}
view release on metacpan or search on metacpan
t/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
t/lib/Test.pm view on Meta::CPAN
);
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
bin/perlbrewise-spec view on Meta::CPAN
my @caller = caller;
my $self = $class->new({caller => \@caller});
my $ns = $caller[0] . '::';
my %export;
strict->import;
warnings->import;
$self->{skip_subs} = {app => 1, option => 1, version => 1, documentation => 1, extends => 1, subcommand => 1};
no strict 'refs';
view release on metacpan or search on metacpan
lib/Devel/Kit.pm view on Meta::CPAN
*{ $caller . '::' . $pre . $l } = \&{$l};
}
unless ( grep( m/no/, @_ ) ) {
require Import::Into; # die here since we don't need it otherwise, so we know right off there's a problem, and so caller does not have to check status unless they want to
strict->import::into($caller);
warnings->import::into($caller);
}
}
my $ak;
view release on metacpan or search on metacpan
);
our $sep = $Config::Config{path_sep};
sub import {
strict->import;
warnings->import;
goto &Exporter::import;
}
sub set_env_min {
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
);
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
);
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
our $TAKE_SAMPLE_LINE;
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
feature->import(':5.12');
if ((grep /^:fork$/, @_) && !$Config{d_fork}) {
__PACKAGE__->builder->skip_all("fork() not available");
view release on metacpan or search on metacpan
lib/Dzpl.pm view on Meta::CPAN
sub import {
my $package = caller;
my @arguments = splice @_, 1;
strict->import;
warnings->import;
if ( $DZPL{$package} ) {
warn "Dzpl: Already initialized Dist::Dzpl for package ($package)!\n";
return;
view release on metacpan or search on metacpan
t/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
t/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/Doit.pm view on Meta::CPAN
{
package Doit;
sub import {
warnings->import;
strict->import;
}
sub unimport {
warnings->unimport;
strict->unimport;
view release on metacpan or search on metacpan
inc/Test/Most.pm view on Meta::CPAN
Test::Exception
Test::Deep
Test::Warn
/;
warnings->import;
strict->import;
eval "use Data::Dumper::Names 0.03";
$DATA_DUMPER_NAMES_INSTALLED = !$@;
if ( $ENV{BAIL_ON_FAIL} ) {
$bail_set = 1;
view release on metacpan or search on metacpan
lib/EntityModel/Class.pm view on Meta::CPAN
=cut
sub setup {
my ($class, $pkg) = @_;
strict->import;
warnings->import();
feature->import(':5.10');
}
view release on metacpan or search on metacpan
lib/Exobrain.pm view on Meta::CPAN
# automatically set strict, warnings, 5.10 features and Method::Signatures
# by default.
sub import {
strict->import();
warnings->import();
feature->import(':5.10');
# Method::Signatures needs a little more magic.
view release on metacpan or search on metacpan
lib/Exporter/Almighty.pm view on Meta::CPAN
sub _exporter_validate_opts {
my ( $me, $options ) = @_;
my $into = $options->{into};
my $setup = $options->{setup};
strict->import::into( $into );
warnings->import::into( $into );
$me->setup_for( $into, $setup );
}
# Subclasses may wish to provide a subclass of Exporter::Tiny here.