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' ){
view release on metacpan or search on metacpan
cpan/CPAN-Meta-YAML/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
use Scope::Upper qw/localize reap unwind want_at :words/;
sub too {
#localize '$tt', 'nacana' => UP;
eval q{
sub foo {
#require strict; strict->import()
require strict; strict->import();
require Moose; Moose->import();
#my $a = 'Moose::import';
my $p = caller;
print "Imported into $p\n";
}
};
#reap \&foo => HERE;
#reap sub { require Moose; Moose->import } => UP;
reap sub { require strict; strict->import } => HERE;
#reap sub { require Scalar::Util; Scalar::Util->import('refaddr') } => UP;
reap sub { require List::Util; my $f='List::Util::import'; @_=('List::Util::import', 'first'); goto &$f } => HERE;
}
}
view release on metacpan or search on metacpan
lib/sane.pm view on Meta::CPAN
package sane;
our $VERSION = '0.99';
sub import {
require strict;
strict->import;
require warnings;
warnings->import;
require utf8;
view release on metacpan or search on metacpan
lib/shit.pm view on Meta::CPAN
use strict;
use warnings;
sub import {
warnings->import();
strict->import();
}
sub unimport {
strict->unimport();
warnings->unimport();
view release on metacpan or search on metacpan
lib/strictures.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/strictures.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
t/10-base.t view on Meta::CPAN
eval { Test::More->import() };
_got_ok('don\'t touch class names');
my $strict;
sub strict { $strict = 1; undef }
eval { strict->import };
is($strict, 1, 'the strict subroutine was called');
# ... Test hash keys ..........................................................
my $c = 0;
view release on metacpan or search on metacpan
lib/Sympatic.pm view on Meta::CPAN
path .
>;
English->import::into( $to, qw< -no_match_vars > );
feature->import::into( $to, qw< say state > );
strict->import::into($to);
warnings->import::into($to);
Function::Parameters->import::into($to);
while (@_) {
view release on metacpan or search on metacpan
lib/true.pm view on Meta::CPAN
use strict;
use warnings;
use true;
sub import {
strict->import();
warnings->import();
true->import();
}
=head1 DESCRIPTION