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;
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
view release on metacpan or search on metacpan
local/lib/perl5/Moo.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)) {
croak "Cannot import Moo into a role";
}
view release on metacpan or search on metacpan
t/mite/lib/Local/Mite.pm view on Meta::CPAN
my ( $class, $kind ) = @_;
my ( $caller, $file ) = caller;
# Turn on warnings and strict in the caller
warnings->import;
strict->import;
$kind ||= 'class';
$kind = ( $kind =~ /role/i ) ? 'role' : 'class';
if( _is_compiling() ) {
view release on metacpan or search on metacpan
lib/Role/Tiny.pm view on Meta::CPAN
}
sub import {
my $target = caller;
my $me = shift;
strict->import;
warnings->import;
my $non_methods = $me->_non_methods($target);
$me->_install_subs($target, @_);
$me->make_role($target);
$me->_mark_new_non_methods($target, $non_methods)
view release on metacpan or search on metacpan
else {
$code->();
}
}
}
strict->import;
warnings->import;
utf8->import;
}
sub get_file_contents {