view release on metacpan or search on metacpan
sub import {
my ($class) = @_;
strict->import;
warnings->import;
my ($package, $file) = caller;
my $code = qq[
view release on metacpan or search on metacpan
lib/Activiti/Sane.pm view on Meta::CPAN
use feature ();
use utf8;
sub import {
my $pkg = caller;
strict->import;
warnings->import;
feature->import(qw(:5.10));
utf8->import;
}
view release on metacpan or search on metacpan
lib/alienfile.pm view on Meta::CPAN
goto &alienfile::_add_modifier;
}
sub import
{
strict->import;
warnings->import;
goto &Exporter::import;
}
1;
view release on metacpan or search on metacpan
lib/Any/Moose.pm view on Meta::CPAN
sub import {
my $self = shift;
my $pkg = caller;
# Any::Moose gives you strict and warnings
strict->import;
warnings->import;
# first options are for Mo*se
unshift @_, 'Moose' if !@_ || ref($_[0]);
view release on metacpan or search on metacpan
script/acme-cpanauthors 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
lib/App/GHPT/Wrapper/Ourperl.pm view on Meta::CPAN
use utf8 ();
sub import {
my $caller_level = 1;
strict->import::into($caller_level);
warnings->import::into($caller_level);
my @experiments = qw(
lexical_subs
postderef
view release on metacpan or search on metacpan
lib/App/Kit.pm view on Meta::CPAN
use Moo;
our $VERSION = '0.63';
sub import {
strict->import;
warnings->import;
unless ( defined $_[1] && $_[1] eq '-no-try' ) { # Yoda was right: there *is* -no-try!
require Try::Tiny;
view release on metacpan or search on metacpan
);
sub import {
my ($class) = @_;
strict->import;
utf8->import;
warnings->import;
my ($package, $file) = caller;
view release on metacpan or search on metacpan
script/pick 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
lib/App/Sandy/Base.pm view on Meta::CPAN
sub import {
my ($class, @opts) = @_;
my $caller = caller;
# Import as in Moder::Perl
strict->import;
feature->import(':5.14');
utf8->import($caller);
true->import;
Carp->import::into($caller);
Try::Tiny->import::into($caller);
view release on metacpan or search on metacpan
local/lib/perl5/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/App/SimulateReads/Base.pm view on Meta::CPAN
sub import {
my ($class, @opts) = @_;
my $caller = caller;
# Import as in Moder::Perl
strict->import;
feature->import(':5.10');
utf8->import($caller);
true->import;
Carp->import::into($caller);
Try::Tiny->import::into($caller);
view release on metacpan or search on metacpan
t/lib/App/SocialSKK/Test.pm view on Meta::CPAN
);
sub import {
my $class = shift;
require strict;
strict->import;
require warnings;
warnings->import;
require utf8;
utf8->import;
view release on metacpan or search on metacpan
t/lib/App/Toot/Test.pm view on Meta::CPAN
sub import {
my $class = shift;
my %args = @_;
warnings->import;
strict->import;
if ( $args{tests} ) {
$class->builder->plan( tests => $args{tests} )
unless $args{tests} eq 'no_declare';
}
view release on metacpan or search on metacpan
script/cpanurl 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/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
sub import {
my $class = shift;
my $caller = caller;
strict->import;
warnings->import;
eval "package $caller; use Test::More;1" or die $@;
}
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
bin/plx-packed view on Meta::CPAN
package local::lib;
use 5.006;
BEGIN {
if ($ENV{RELEASE_TESTING}) {
require strict;
strict->import;
require warnings;
warnings->import;
}
}
use Config ();
view release on metacpan or search on metacpan
lib/App/revealup/base.pm view on Meta::CPAN
for my $key (keys %opt) {
attr($caller, $key, $opt{$key}) if $opt{$key};
}
return bless \%opt, $klass;
};
strict->import;
warnings->import;
}
sub attr {
my ( $caller, $k, $v ) = @_;
view release on metacpan or search on metacpan
script/wordlist 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
lib/Applify.pm view on Meta::CPAN
my @caller = caller;
my $self = $class->new({caller => \@caller});
my $ns = $caller[0] . '::';
my %export;
strict->import;
warnings->import;
no strict 'refs';
$self->{skip_subs}{$_} = 1 for keys %$ns;
view release on metacpan or search on metacpan
lib/Arthas/Defaults.pm view on Meta::CPAN
try catch finally
/;
sub import {
feature->import(':5.14');
strict->import();
warnings->import(FATAL => 'all');
warnings->unimport('uninitialized');
utf8->import();
# Export all @EXPORT
view release on metacpan or search on metacpan
lib/Attribute/Benchmark.pm view on Meta::CPAN
sub import
{
shift;
$iter = $_[0] if @_;
strict->import;
warnings->import(FATAL => 'all');
}
sub UNIVERSAL::Benchmark :ATTR()
{
view release on metacpan or search on metacpan
lib/Badger/Exporter.pm view on Meta::CPAN
# enable strict and warnings in the caller - this ensures that every
# Badger module (that calls this method - which is pretty much all of
# them) has strict/warnings enabled, without having to explicitly write
# it. Thx Moose!
strict->import;
warnings->import;
# call in the heavy guns
$class->export($target, @_);
}
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/testlib.pm view on Meta::CPAN
sub import {
my $class = shift;
my $caller = caller;
strict->import;
warnings->import;
feature->import(':5.10.0');
no strict 'refs';
*{ $caller . '::tracking' } = \&tracking;
view release on metacpan or search on metacpan
t/lib/sugar.pm view on Meta::CPAN
sub import {
my $class = shift;
my $caller = caller;
my %args = @_;
strict->import;
warnings->import;
CGI::Application::Plugin::RunmodeParseKeyword->import(into => $caller);
}
1;
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/CPANPLUS/YACSmoke/locallib.pm view on Meta::CPAN
use 5.006;
BEGIN {
if ($ENV{RELEASE_TESTING}) {
require strict;
strict->import;
require warnings;
warnings->import;
}
}
use Config ();