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 {
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
t/40mite/lib/MyTest/Mite.pm view on Meta::CPAN
require $mite_file;
}
}
warnings->import;
strict->import;
'namespace::autoclean'->import( -cleanee => $caller )
if _HAS_AUTOCLEAN && !$arg{'-unclean'};
}
{
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 ));