view release on metacpan or search on metacpan
lib/Scalar/Random/PP/OO.pm view on Meta::CPAN
# it must be "require", because Scalar::Random::PP::OO::Util depends on Scalar::Random::PP::OO::Exporter,
# which depends on Scalar::Random::PP::OO::Util::import()
require Scalar::Random::PP::OO::Util;
sub import{
# strict->import;
$^H |= $strict_bits;
# warnings->import('all', FATAL => 'recursion');
${^WARNING_BITS} |= $warnings::Bits{all};
${^WARNING_BITS} |= $warnings_extra_bits;
return;
lib/Scalar/Random/PP/OO.pm view on Meta::CPAN
else{
push @exports, $arg;
}
}
# strict->import;
$^H |= $strict_bits;
# warnings->import('all', FATAL => 'recursion');
${^WARNING_BITS} |= $warnings::Bits{all};
${^WARNING_BITS} |= $warnings_extra_bits;
view release on metacpan or search on metacpan
lib/Shell/Tools.pm view on Meta::CPAN
our @EXPORT = (); ## no critic (ProhibitAutomaticExportation)
our %EXPORT_TAGS = ();
sub import { ## no critic (RequireArgUnpacking)
warnings->import;
strict->import;
__PACKAGE__->export_to_level(1, @_);
return;
}
view release on metacpan or search on metacpan
lib/Sietima/Policy.pm view on Meta::CPAN
sub import {
# These affect the currently compiling scope,
# so no need for import::into
strict->import;
warnings->import;
feature->import(':5.36');
return;
}
view release on metacpan or search on metacpan
use strict;
use warnings;
use utf8;
sub import {
strict->import;
warnings->import;
utf8->import;
}
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
lib/Class/LOP.pm view on Meta::CPAN
}
sub warnings_strict {
my $self = shift;
warnings->import();
strict->import();
return $self;
}
sub getscope {
my ($self) = @_;
view release on metacpan or search on metacpan
lib/Sympatic.pm view on Meta::CPAN
sub import {
my $to = caller;
English->import::into($to, qw< -no_match_vars >);
feature->import::into($to,qw< say >);
strict->import::into($to);
warnings->import::into($to);
Function::Parameters->import::into($to);
utf8::all->import::into($to);
# see https://github.com/pjf/autodie/commit/6ff9ff2b463af3083a02a7b5a2d727b8a224b970
view release on metacpan or search on metacpan
lib/TAEB/Test.pm view on Meta::CPAN
our @EXPORT = qw/test_items test_monsters degrade_ok degrade_nok degrade_progression plan_tests/;
sub import_extra {
Test::More->export_to_level(2);
strict->import;
warnings->import;
}
=head2 test_items ITEM_LIST
view release on metacpan or search on metacpan
t/TRTest.pm view on Meta::CPAN
sub import
{
my ($class) = @_;
strict->import ();
utf8->import ();
warnings->import ();
# We already had to do this to use this module.
# FindBin->import ('$Bin');
view release on metacpan or search on metacpan
lib/Tak/STDIONode.pm view on Meta::CPAN
sub import {
my $target = caller;
my $class = shift;
_set_loaded(caller);
strict->import;
warnings->import;
if ($INC{'Role/Tiny.pm'} and Role::Tiny->is_role($target)) {
die "Cannot import Moo into a role";
}
lib/Tak/STDIONode.pm view on Meta::CPAN
sub import {
my $target = caller;
my ($me) = @_;
_set_loaded(caller);
strict->import;
warnings->import;
if ($Moo::MAKERS{$target} and $Moo::MAKERS{$target}{is_class}) {
die "Cannot import Moo::Role into a Moo class";
}
$INFO{$target} ||= {};
lib/Tak/STDIONode.pm view on Meta::CPAN
strictures->VERSION(2);
@_ = ('strictures');
goto &strictures::import;
}
else {
strict->import;
warnings->import;
}
}
1;
lib/Tak/STDIONode.pm view on Meta::CPAN
$class->$method($opts);
}
sub _enable_1 {
my ($class, $opts) = @_;
strict->import;
warnings->import(FATAL => 'all');
if (_want_extra($opts->{file})) {
_load_extras(qw(indirect multidimensional bareword::filehandles));
indirect->unimport(':fatal')
lib/Tak/STDIONode.pm view on Meta::CPAN
'once' # triggers inconsistently, can't be fatalized
);
sub _enable_2 {
my ($class, $opts) = @_;
strict->import;
warnings->import;
warnings->import(FATAL => @WARNING_CATEGORIES);
warnings->unimport(FATAL => @V2_NONFATAL);
warnings->import(@V2_NONFATAL);
warnings->unimport(@V2_DISABLE);
view release on metacpan or search on metacpan
lib/rjbs.pm view on Meta::CPAN
use feature ();
use experimental ();
sub import {
strict->import;
warnings->import;
feature->import(':5.20');
experimental->import(qw( signatures postderef lexical_subs ));
$] >= 5.022000 && experimental->import(qw( bitwise refaliasing ));
view release on metacpan or search on metacpan
eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
}
sub import {
strict->import;
warnings->import;
utf8->import;
}
sub prepare_db {
view release on metacpan or search on metacpan
eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
}
sub import {
strict->import;
warnings->import;
utf8->import;
}
sub prepare_db {
view release on metacpan or search on metacpan
eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
}
sub import {
strict->import;
warnings->import;
utf8->import;
}
sub prepare_db {
view release on metacpan or search on metacpan
eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
}
sub import {
strict->import;
warnings->import;
utf8->import;
}
sub prepare_db {
view release on metacpan or search on metacpan
t/lib/t/Utils.pm view on Meta::CPAN
use warnings;
use utf8;
use Test::More;
sub import {
strict->import;
warnings->import;
utf8->import;
}
sub prepare_db {
view release on metacpan or search on metacpan
lib/Test/Arrow.pm view on Meta::CPAN
sub _import_option_no_strict {
my ($pkg, $args) = @_;
my $no_strict = delete $args->{no_strict} or delete $args->{'-strict'};
if (!$no_strict) {
strict->import;
}
}
sub _import_option_no_warnings {
my ($pkg, $args) = @_;
view release on metacpan or search on metacpan
t/lib/t/Utils.pm view on Meta::CPAN
use utf8;
use Test::FailWarnings;
use Test::Name::FromLine;
sub import {
strict->import;
warnings->import;
utf8->import;
}
1;
view release on metacpan or search on metacpan
lib/Test/Class/Most.pm view on Meta::CPAN
my ( $class, %args ) = @_;
my $caller = caller;
eval "package $caller; use Test::Most;";
croak($@) if $@;
warnings->import;
strict->import;
if ( my $parent = delete $args{parent} ) {
if ( ref $parent && 'ARRAY' ne ref $parent ) {
croak(
"Argument to 'parent' must be a classname or array of classnames, not ($parent)"
);
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/Test/DBIC/DBDConnector.pm view on Meta::CPAN
=end override
=cut
sub import_extra {
strict->import;
warnings->import;
Test::Builder::Module->import;
}
=begin hide
view release on metacpan or search on metacpan
lib/Test/DiagINC.pm view on Meta::CPAN
# to load them either. On the other hand we would like to know our
# code is at least somewhat ok. Therefore this madness ;)
BEGIN {
if ( $ENV{RELEASE_TESTING} ) {
require warnings && warnings->import;
require strict && strict->import;
}
}
sub _max_length {
my $max = 0;
view release on metacpan or search on metacpan
use strict;
use warnings;
sub import {
strict->import;
warnings->import;
}
1;
view release on metacpan or search on metacpan
lib/Test/Kit.pm view on Meta::CPAN
# "this works because both pragmas set $^H (see perldoc 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)"
#
# In the Moose code the author simply calls strict->import() in the
# appropriate import() method and that does the trick. For us working
# at a bit more of a distance we have to be a bit trickier - adding
# strict->import() or warnings->import() to the import method on the
# target class. We do that by wrapping it with Hook::LexWrap::wrap().
#
if ($Test::Builder::VERSION < 1.3 && ($package eq 'strict' || $package eq 'warnings')) {
wrap "${target}::import", post => sub { $package->import(); };
}
view release on metacpan or search on metacpan
lib/Test/Lite.pm view on Meta::CPAN
my ($class, @args) = @_;
my $pkg = caller(1);
for (@args) {
if ($_ eq ':strict') {
warnings->import;
strict->import;
}
}
$CLASS->_export_defs(qw/
is
ok
view release on metacpan or search on metacpan
lib/Test/Mini/Unit.pm view on Meta::CPAN
# @api private
sub import {
my ($class, @args) = @_;
my $caller = caller();
strict->import;
warnings->import;
Test::Mini::Unit::Sugar::Shared->import(into => $caller, @args);
Test::Mini::Unit::Sugar::TestCase->import(into => $caller, @args);
}
view release on metacpan or search on metacpan
lib/Test/ModuleVersion.pm view on Meta::CPAN
else {
push @{"${caller}::ISA"}, $class;
}
# strict!
strict->import;
warnings->import;
# Modern!
feature->import(':5.10') if $] >= 5.010;
}
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
lib/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/Test2/V0.pm view on Meta::CPAN
my $no_pragmas = delete $options{'-no_pragmas'};
my $no_strict = delete $options{'-no_strict'} || $no_pragmas;
my $no_warnings = delete $options{'-no_warnings'} || $no_pragmas;
my $no_utf8 = delete $options{'-no_utf8'} || $no_pragmas;
strict->import() unless $no_strict;
'warnings'->import() unless $no_warnings;
Test2::Plugin::UTF8->import() unless $no_utf8;
my $target = delete $options{'-target'};
Test2::Tools::Target->import_into($caller, $target)