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
t/corpus/Perl7-Handy/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
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;
view release on metacpan or search on metacpan
lib/PlackX/RouteBuilder.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
corpus/perlvar-copy.pod view on Meta::CPAN
being compiled. The new value of $^H will therefore be visible only while
the body of foo() is being compiled.
Substitution of the above BEGIN block with:
BEGIN { require strict; strict->import('vars') }
demonstrates how C<use strict 'vars'> is implemented. Here's a conditional
version of the same lexical pragma:
BEGIN { require strict; strict->import('vars') if $condition }
=item %^H
The %^H hash provides the same scoping semantic as $^H. This makes it
useful for implementation of lexically scoped pragmas. See L<perlpragma>.
view release on metacpan or search on metacpan
t/lib/MarkdownTests.pm view on Meta::CPAN
sub import {
my $class = shift;
Test::More::plan(@_) if @_;
@_ = ($class);
strict->import;
warnings->import;
goto &Exporter::import;
}
sub hex_escape {
view release on metacpan or search on metacpan
t/lib/MarkdownTests.pm view on Meta::CPAN
sub import {
my $class = shift;
Test::More::plan(@_) if @_;
@_ = ($class);
strict->import;
warnings->import;
goto &Exporter::import;
}
sub hex_escape {
view release on metacpan or search on metacpan
t/perlvar.pod view on Meta::CPAN
being compiled. The new value of $^H will therefore be visible only while
the body of foo() is being compiled.
Substitution of the above BEGIN block with:
BEGIN { require strict; strict->import('vars') }
demonstrates how C<use strict 'vars'> is implemented. Here's a conditional
version of the same lexical pragma:
BEGIN { require strict; strict->import('vars') if $condition }
=item %^H
WARNING: This variable is strictly for internal use only. Its availability,
behavior, and contents are subject to change without notice.
view release on metacpan or search on metacpan
lib/Pulp.pm view on Meta::CPAN
our $VERSION = '0.001';
sub import {
my ($class, %opts) = @_;
strict->import();
warnings->import();
true->import();
my $caller = caller;
my $routes = [];
my $configs = {};
view release on metacpan or search on metacpan
lib/Puncheur/Lite.pm view on Meta::CPAN
};
$caller->setting(
template_dir => [sub {Data::Section::Simple->new($caller)->get_data_section}, $tmpl],
);
strict->import;
warnings->import;
utf8->import;
require feature;
feature->import(':5.10');
view release on metacpan or search on metacpan
lib/Qudo/Test.pm view on Meta::CPAN
our @SUPPORT_DRIVER = qw/Skinny/;
sub import {
my $caller = caller(0);
strict->import;
warnings->import;
for my $func (qw/run_tests run_tests_mysql run_tests_sqlite test_master teardown_dbs dsn_for/) {
no strict 'refs'; ## no critic.
*{$caller.'::'.$func} = \&$func;
view release on metacpan or search on metacpan
lib/Raisin/API.pm view on Meta::CPAN
sub import {
my $class = shift;
$class->export_to_level(1, $class, @_);
strict->import;
warnings->import;
my $caller = caller;
$app ||= Raisin->new(caller => $caller);
}
view release on metacpan or search on metacpan
lib/Range/Merge/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
lib/Reaction/Class.pm view on Meta::CPAN
sub import {
my $self = shift;
my $pkg = caller;
my @args = @_;
strict->import;
warnings->import;
$self->do_import($pkg, \@args);
goto &{$self->next_import} if $self->next_import;
}
view release on metacpan or search on metacpan
t/lib/Test/Resource/Pack.pm view on Meta::CPAN
sub import {
Test::More->export_to_level(2);
Test::Moose->import({into_level => 2});
Path::Class->export_to_level(2);
strict->import;
warnings->import;
goto $import;
}
1;
view release on metacpan or search on metacpan
lib/Rethinkdb/Base.pm view on Meta::CPAN
push @{"${caller}::ISA"}, $flag;
*{"${caller}::has"} = sub { attr( $caller, @_ ) };
}
# Mojo modules are strict!
strict->import;
warnings->import;
utf8->import;
feature->import(':5.10');
}
view release on metacpan or search on metacpan
if ( exists $ENV{REX_SUDO} && $ENV{REX_SUDO} ) {
Rex::global_sudo(1);
}
# we are always strict
strict->import;
}
=head1 FEATURE FLAGS
Everyone knows the pain if something gets deprecated and one has to