view release on metacpan or search on metacpan
lib/Test/Spec/Acceptance.pm view on Meta::CPAN
sub import {
my $class = shift;
my $callpkg = caller;
strict->import;
warnings->import;
if (@_) {
$class->export_to_level(1, $callpkg, @_);
return;
view release on metacpan or search on metacpan
lib/Test/Spec.pm view on Meta::CPAN
sub import {
my $class = shift;
my $callpkg = caller;
strict->import;
warnings->import;
# specific imports requested
if (@_) {
$class->export_to_level(1, $callpkg, @_);
view release on metacpan or search on metacpan
lib/Test/Stream/Bundle/V1.pm view on Meta::CPAN
use Test::Stream::Bundle qw/import/;
sub plugins {
return (
sub { strict->import(); warnings->import() },
qw{
IPC
TAP
ExitSummary
Core
view release on metacpan or search on metacpan
lib/Test/t.pm view on Meta::CPAN
@EXPORT = @Test::Most::EXPORT;
sub import {
strict->import;
warnings->import;
my $no_plan = 1;
m/^(?:no_plan|defer_plan|tests|skip_all)$/ and undef $no_plan for @_;
splice @_, 1, 1, ( 'no_plan' ) if $no_plan;
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)
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/Thorium/Protection.pm view on Meta::CPAN
use strict;
use warnings;
sub import {
strict->import();
warnings->import();
require utf8;
utf8->import();
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/Util/Any.pm view on Meta::CPAN
=head2 DO SOMETHING WITHOUT EXPORTING ANYTHING
-strict => [
[ 'strict' => {
'.' => sub {
strict->import();
warnings->import();
},
}
];
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/Validation/Class.pm view on Meta::CPAN
sub import {
my $caller = caller(0) || caller(1);
strict->import;
warnings->import;
__PACKAGE__->export_to_level(1, @_);
return return_class_proto $caller # provision prototype when used
view release on metacpan or search on metacpan
.claude/skills/perl-moo/SKILL.md view on Meta::CPAN
```perl
package My::Mooish;
use Import::Into;
sub import {
my $target = caller;
strict->import::into($target);
warnings->import::into($target);
Moo->import::into($target);
namespace::clean->import::into($target); # after Moo, cleans stray imports
}
view release on metacpan or search on metacpan
lib/WWW/MobileCarrierJP/Declare.pm view on Meta::CPAN
}
sub import {
my $class = shift;
strict->import;
warnings->import;
utf8->import;
$class->export_to_level(1);
}
view release on metacpan or search on metacpan
.claude/skills/perl-moo/SKILL.md view on Meta::CPAN
```perl
package My::Mooish;
use Import::Into;
sub import {
my $target = caller;
strict->import::into($target);
warnings->import::into($target);
Moo->import::into($target);
namespace::clean->import::into($target); # after Moo, cleans stray imports
}
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.2' );
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
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/Web/Dispatcher/Simple.pm view on Meta::CPAN
my @http_methods = qw/get post put del any/;
for my $http_method (@http_methods) {
*{"${caller}\::$http_method"} = sub { goto \&$http_method };
}
strict->import;
warnings->import;
}
sub _stub {
my $name = shift;
view release on metacpan or search on metacpan
lib/Web/Simple/AntiquatedPerl.pod view on Meta::CPAN
----
strict
and
warnings
----
strict->import
----
affects
compilation
scope
----
sub strict_and_warnings::import {
strict->import;
warnings->import;
}
----
use strict_and_warnings;
----
view release on metacpan or search on metacpan
require WebDriver::Tiny;
sub import {
# Turn on strict & warnings for the caller.
strict->import;
warnings->import;
eval "package main; use Test::More tests => $_[1]";
}
view release on metacpan or search on metacpan
lib/WebService/GData.pm view on Meta::CPAN
our $VERSION = 0.06;
our $AUTOLOAD;
sub import {
strict->import;
warnings->import;
my $import = shift;
my $package = caller;
if ($import) {
install_in_package( ['private'], sub { return \&private; }, $package );
view release on metacpan or search on metacpan
t/lib/WebService/Qiita/Test.pm view on Meta::CPAN
sub import {
my ($class, @opts) = @_;
no warnings 'redefine';
no strict 'refs';
strict->import;
warnings->import;
utf8->import;
@_ = ($class, @opts);
goto &Exporter::Lite::import;
view release on metacpan or search on metacpan
lib/Whelk/StrictBase.pm view on Meta::CPAN
namespace::autoclean->import(
-cleanee => $caller
);
}
strict->import;
warnings->import;
feature->import(':5.10');
}
my $find_closest = sub {
view release on metacpan or search on metacpan
lib/XML/Loy.pm view on Meta::CPAN
*{"${caller}::ON_INIT"} = delete $param{on_init};
};
};
# Make inheriting classes strict and modern
strict->import;
warnings->import;
utf8->import;
feature->import(':5.10');
};
view release on metacpan or search on metacpan
@XS::Check::EXPORT_OK,
);
sub import
{
strict->import ();
utf8->import ();
warnings->import ();
Test::More->import ();
view release on metacpan or search on metacpan
t/lib/TestML/Tiny.pm view on Meta::CPAN
use Test::More 0.88 ();
# use XXX;
sub import {
strict->import;
warnings->import;
}
sub new {
my $self = bless { @_[1..$#_] }, $_[0];
view release on metacpan or search on metacpan
t/lib/TestML/Tiny.pm view on Meta::CPAN
use Test::More 0.88 ();
# use XXX;
sub import {
strict->import;
warnings->import;
}
sub new {
my $self = bless { @_[1..$#_] }, $_[0];
view release on metacpan or search on metacpan
lib/YAOO.pm view on Meta::CPAN
sub import {
my ($package, @attributes) = @_;
my $called = caller();
strict->import();
warnings->import();
for my $is (qw/ro rw/) {
make_keyword($called, $is, sub { is => $is });
}
view release on metacpan or search on metacpan
our $YEAR = $time[5] + 1900;
our $HOME = abs_path '.';
$ENV{PATH} = abs_path('bin') . ":$ENV{PATH}";
sub import {
strict->import;
warnings->import;
goto &Exporter::import;
}
sub run {