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
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 {
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
lib/Zydeco.pm view on Meta::CPAN
}
# Export utility stuff
#
Zydeco::_Gather->import::into($caller, -gather => %opts);
strict->import::into($caller);
warnings->import::into($caller);
MooX::Press::Keywords->import::into($caller, $_)
for grep $want{$_}, qw(-booleans -privacy -util);
Syntax::Keyword::Try->import::into($caller) if $want{try};
if ($] >= 5.018) {
view release on metacpan or search on metacpan
lib/assign/Test.pm view on Meta::CPAN
XXX
WWW
);
sub import {
strict->import;
warnings->import;
goto &Exporter::import;
}
my $test_count = 0;
view release on metacpan or search on metacpan
lib/crap.pm view on Meta::CPAN
strict->unimport();
$|=$hawt if defined $hawt;
}
sub unimport {
strict->import();
warnings->import();
$hawt = $| if defined $|;
$|=1;
}
view release on metacpan or search on metacpan
lib/Eirotic.pm view on Meta::CPAN
my ( $what ) = pop;
my ( $caller ) = caller;
feature->import(':5.20'); # use 5.20.0;
strict->import; # use strict;
warnings->import; # use warnings qw( FATAL all );
# warnings->import(qw( FATAL all )); # use warnings qw( FATAL all );
#use experimental 'signatures';
view release on metacpan or search on metacpan
lib/ex/caution.pm view on Meta::CPAN
use strict;
use warnings;
our $VERSION = '0.01';
sub import {
strict->import;
warnings->import;
}
sub unimport {
strict->unimport;
view release on metacpan or search on metacpan
lib/HTTP/Session/State/Base.pm view on Meta::CPAN
use warnings;
use Class::Accessor::Fast;
sub import {
my $pkg = caller(0);
strict->import;
warnings->import;
no strict 'refs';
unshift @{"${pkg}::ISA"}, "Class::Accessor::Fast";
$pkg->mk_ro_accessors(qw/permissive/);
}
view release on metacpan or search on metacpan
script/jsonpretty view on Meta::CPAN
no warnings 'uninitialized';
shift->SUPER::VERSION(@_);
}
sub import {
strict->import;
warnings->import(FATAL => 'all');
my $do_indirect = do {
if (exists $ENV{PERL_STRICTURES_EXTRA}) {
$ENV{PERL_STRICTURES_EXTRA}
} else {
view release on metacpan or search on metacpan
lib/junk.pm view on Meta::CPAN
sub import{my$class=shift or return$=;if(!@_){strict->unimport,return
}my@A=@_;my$caller=caller;foreach my$x(@A){$x=~s{_D\d}{$1}g;$x=~s{_P}
{+}g;$x=~s{_S}{/}g;$x.='='while(length$x)%3;croak"invalid base64: $x"
if$x=~m~[^A-Za-z0-9\+\/\=]~;my$o;my$eval=join q..,qq, package $caller
;,,decode_base64($x);warn"$eval\n"if$ENV{PERL_JUNK_DEBUG};eval$eval}}
sub unimport{strict->import(qw,vars subs,)}import
__END__
=head1 NAME
view release on metacpan or search on metacpan
lib/latest.pm view on Meta::CPAN
Perl version.
=cut
sub import {
strict->import;
warnings->import;
( my $v = version->new( $] )->normal ) =~ s/^v/:/;
latest::feature->import( $v );
}
view release on metacpan or search on metacpan
lib/local/lib.pm 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/nextgen.pm view on Meta::CPAN
} )
}
else {
warnings->import();
strict->import();
}
nextgen::blacklist->import(
_blacklist_policy()
view release on metacpan or search on metacpan
lib/nonsense.pm view on Meta::CPAN
use namespace::autoclean ();
sub unimport {
my ($class, $command, @args) = @_;
my $into = caller;
strict->import;
warnings->import;
true->import;
# return $into unless defined $command;
# if( $command eq 'class' ){