view release on metacpan or search on metacpan
t/narada1/share.pm view on Meta::CPAN
use warnings;
use strict;
use feature ':5.10';
warnings->import;
strict->import;
feature->import(':5.10');
use Test::More;
use Test::Exception;
use Test::Output qw( :all );
use Test::MockModule;
view release on metacpan or search on metacpan
sub import {
my ($class, %args) = @_;
my $caller = caller;
strict->import;
warnings->import;
utf8->import;
check_env('NET_GOOGLE_DOCUMENTSLIST_LIVE_TEST') or exit;
{
no warnings;
view release on metacpan or search on metacpan
sub import {
my ($class, %args) = @_;
my $caller = caller;
strict->import;
warnings->import;
utf8->import;
check_env(qw(
SPREADSHEETS_TITLE
view release on metacpan or search on metacpan
t/lib/Test/Riak.pm view on Meta::CPAN
no strict 'refs';
*{caller()."::test_riak"} = \&{"Test::Riak::test_riak"};
*{caller()."::test_riak_pbc"} = \&{"Test::Riak::test_riak_pbc"};
*{caller()."::test_riak_rest"} = \&{"Test::Riak::test_riak_rest"};
*{caller()."::new_riak_client"} = \&{"Test::Riak::new_riak_client"};
strict->import;
warnings->import;
}
sub test_riak (&) {
my ($test_case) = @_;
view release on metacpan or search on metacpan
inc/Test/Net/SSLeay.pm view on Meta::CPAN
sub import {
my ( $class, @imports ) = @_;
# Enable strict and warnings in the caller
strict->import;
warnings->import;
# Import common modules into the caller's namespace
my $caller = caller;
for (qw(Test::More)) {
view release on metacpan or search on metacpan
t/lib/TestHelp.pm view on Meta::CPAN
) or Test::NiceDump::nice_explain($got,$expected);
}
sub import {
my $caller = caller;
eval "package $caller; strict->import; warnings->import; use Test::More; use Test::Deep '!cmp_deeply';1;" or die $@;
no strict 'refs';
*{"${caller}::mkstomp"}=\&mkstomp;
*{"${caller}::mkstomp_testsocket"}=\&mkstomp_testsocket;
*{"${caller}::cmp_deeply"}=\&cmp;
return;
view release on metacpan or search on metacpan
t/lib/Test/NetHack/Item.pm view on Meta::CPAN
our @EXPORT = qw/test_items incorporate_ok evolution_not_ok evolution_ok fits_ok fits_not_ok/;
sub import_extra {
Test::More->export_to_level(2);
strict->import;
warnings->import;
}
sub test_items {
local $Test::Builder::Level = $Test::Builder::Level + 1;
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
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/Object/Simple.pm view on Meta::CPAN
@{"${caller}::ISA"} = ($base_class);
}
else { @{"${caller}::ISA"} = ($class) }
# strict!
strict->import;
warnings->import;
}
# Export methods
else {
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
@Test::Differences::EXPORT,
@OpenTelemetry::TraceContext::W3C::EXPORT_OK,
);
sub import {
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
FR/perlvar.pod view on Meta::CPAN
encore à compiler. Par conséquent, la nouvelle valeur de $^H ne sera
visible seulement que pendant que le corps de foo() est compilé.
La substitution du bloc BEGIN précédent parE<nbsp>:
BEGIN { require strict; strict->import('vars') }
montre comment C<use strict 'vars'> est implémenté. Voici une version
conditionnelle du même pragma lexicalE<nbsp>:
BEGIN { require strict; strict->import('vars') if $condition }
=item %^H
ATTENTIONE<nbsp>: Cette variable est disponible pour utilisation interne
uniquement. Sa disponibilité, son comportement et son contenu sont soumis à
view release on metacpan or search on metacpan
IT/perlvar.pod view on Meta::CPAN
C<pippo()> E<egrave> ancora in fase di compilazione. Il nuovo valore di C<$^H>
sarE<agrave> pertanto visibile solo durante la compilazione di C<pippo()>.
La sostituzione del blocco BEGIN con questo:
BEGIN { require strict; strict->import('vars') }
dimostra come C<use strict 'vars'> E<egrave> implementato. Ecco una
versione condizionale della stessa direttiva lessicale:
BEGIN { require strict; strict->import('vars') if $condizione }
=item %^H
ATTENZIONE: questa variabile E<egrave> strettamente ad uso interno. La sua
disponibilitE<agrave>, comportamento e contenuto sono soggetti a variazioni
view release on metacpan or search on metacpan
lib/POE/Stage.pm view on Meta::CPAN
sub import {
my $class = shift();
my $caller = caller();
strict->import();
warnings->import();
$subclass{$caller} = { } unless exists $subclass{$caller};
foreach my $export (@_) {
view release on metacpan or search on metacpan
t/lib/PPI/Test/pragmas.pm view on Meta::CPAN
$PPI::XS_DISABLE = 1;
$PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
}
sub import {
strict->import();
warnings->import();
return;
}
END {
view release on metacpan or search on metacpan
sub import
{
my $caller = caller;
_setup_signal_handlers();
strict->import::into($caller);
warnings->import::into($caller);
feature->import::into($caller, ':5.14');
autodie->import::into({level=>1}, ':all'); # `autodie` requires a bit of magic ...
goto \&Exporter::import;
}
view release on metacpan or search on metacpan
t/TestPegexForth.pm view on Meta::CPAN
package TestPegexForth;
use Test::More();
use Pegex::Forth;
use Capture::Tiny ':all';
strict->import;
warnings->import;
use base 'Exporter';
our @EXPORT = qw(test_top test_stack test_out test_err);
view release on metacpan or search on metacpan
lib/Perl/Core.pm view on Meta::CPAN
{
my ($class, $version) = @_;
my $caller = scalar caller();
warnings->import;
strict->import;
feature->import( $version ? ":$version" : DEFAULT_VERSION );
mro::set_mro($caller, 'c3');
PerlX::Define->import;
Syntax::Feature::Try->install;
view release on metacpan or search on metacpan
lib/File/FindStrings/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/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/Perl7/Handy.pm view on Meta::CPAN
# use feature qw(signatures); no warnings qw(experimental::signatures);
# no feature qw(indirect);
sub import {
# gives caller package "use strict;"
strict->import;
# gives caller package "use warnings;" (only perl 5.006 or later)
if ($] >= 5.006) {
warnings->import;
view release on metacpan or search on metacpan
src/Perlito5/Grammar/Use.pm view on Meta::CPAN
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();
}
}
view release on metacpan or search on metacpan
lib/Perlmazing/Feature.pm view on Meta::CPAN
sub import {
my $self = shift;
my $version = $];
$MAX_VERSION = $] if $MAX_VERSION > $];
$version = $MAX_VERSION if $version > $MAX_VERSION;
strict->import;
warnings->import;
eval {
require feature;
$Perlmazing::Feature::{unknown_feature_bundle} = sub {} unless defined $Perlmazing::Feature::{unknown_feature_bundle};
$self->SUPER::import(':'.substr version->new($version)->normal, 1);
view release on metacpan or search on metacpan
local/lib/perl5/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
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
t/lib/Test.pm view on Meta::CPAN
);
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
feature->import(':5.10');
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;
feature->import(':5.10');
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
maint/Maker.pm view on Meta::CPAN
our $has_been_imported = 0;
sub import {
if($has_been_imported) {
return 1;
} else {
strict->import;
warnings->import;
&use_module_install;
$has_been_imported = 1;
}
}
view release on metacpan or search on metacpan
maint/Maker.pm view on Meta::CPAN
our $has_been_imported = 0;
sub import {
if($has_been_imported) {
return 1;
} else {
strict->import;
warnings->import;
&use_module_install;
$has_been_imported = 1;
}
}
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;