view release on metacpan or search on metacpan
lib/MooseX/DeclareX.pm view on Meta::CPAN
}
}
$_->setup_for($caller, %args, provided_by => $class) for __PACKAGE__->_keywords(\%args);
strict->import;
warnings->import;
TryCatch->import({ into => $caller });
}
sub _keywords
view release on metacpan or search on metacpan
lib/MooseX/Extended/Custom.pm view on Meta::CPAN
sub import {
my @caller = caller(0);
my $custom_moose = $caller[0]; # this is our custom Moose definition
true->import::into($custom_moose) unless $caller[1] =~ /^\(eval/;
strict->import::into($custom_moose);
warnings->import::into($custom_moose);
namespace::autoclean->import::into($custom_moose);
feature->import( _enabled_features() );
warnings->unimport(_disabled_warnings);
}
view release on metacpan or search on metacpan
lib/MooseX/Struct.pm view on Meta::CPAN
our $VERSION = '0.06';
sub import {
my $class = shift;
strict->import;
warnings->import;
if (@_) {
my ($name, $attributes) = _parse_arg_structure(@_);
view release on metacpan or search on metacpan
lib/MooseX/Types.pm view on Meta::CPAN
sub import {
my ($class, %args) = @_;
my $caller = caller;
# everyone should want this
strict->import;
warnings->import;
# inject base class into new library
{ no strict 'refs';
unshift @{ $caller . '::ISA' }, 'MooseX::Types::Base';
view release on metacpan or search on metacpan
lib/Mouse/Exporter.pm view on Meta::CPAN
# it must be "require", because Mouse::Util depends on Mouse::Exporter,
# which depends on Mouse::Util::import()
require Mouse::Util;
sub import{
strict->import;
warnings->import('all', FATAL => 'recursion');
return;
}
lib/Mouse/Exporter.pm view on Meta::CPAN
else{
push @exports, $arg;
}
}
strict->import;
warnings->import('all', FATAL => 'recursion');
if($spec->{INIT_META}){
my $meta;
foreach my $init_meta(@{$spec->{INIT_META}}){
view release on metacpan or search on metacpan
lib/Mousse.pm view on Meta::CPAN
# it must be "require", because Mousse::Util depends on Mousse::Exporter,
# which depends on Mousse::Util::import()
require Mousse::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/Mousse.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/Moxie.pm view on Meta::CPAN
# get "cast" to a class if there
# is a need for it.
my $meta = MOP::Role->new( name => $caller );
# turn on strict/warnings
strict->import;
warnings->import;
# so we can have fun with attributes ...
warnings->unimport('reserved');
view release on metacpan or search on metacpan
lib/Mu/Tiny.pm view on Meta::CPAN
use warnings;
use Carp ();
sub import {
my $targ = caller;
strict->import;
warnings->import;
no strict 'refs';
@$_ or @$_ = ('Mu::Tiny::Object') for my $isa = \@{"${targ}::ISA"};
my $attrs;
*{"${targ}::extends"} = sub {
view release on metacpan or search on metacpan
lib/Myriad/Class.pm view on Meta::CPAN
my $class = __PACKAGE__;
my $pkg = $args{target} // caller(0);
# Apply core syntax and rules
strict->import;
warnings->import;
utf8->import;
# We want mostly the 5.26 featureset, but since that includes `say` and `switch`
# we need to customise the list somewhat
view release on metacpan or search on metacpan
}
sub import {
my $class = shift;
strict->import;
warnings->import;
utf8->import;
feature->import(':5.10');
$class->export_to_level(1, $class, @EXPORT);
}
view release on metacpan or search on metacpan
inc/Modern/Perl.pm view on Meta::CPAN
my $feature_tag = validate_date( $date );
undef $wanted_date;
warnings->import();
strict->import();
feature->import( $feature_tag );
mro::set_mro( scalar caller(), 'c3' );
}
sub unimport
view release on metacpan or search on metacpan
t/narada1/share.pm view on Meta::CPAN
use warnings;
use strict;
use feature ':5.10';
warnings->import;
strict->import;
feature->import(':5.10');
use Test::More;
use Test::Exception;
use Test::Output qw( :all );
use Test::MockModule;
view release on metacpan or search on metacpan
.claude/skills/perl-moo/SKILL.md view on Meta::CPAN
```perl
package My::Mooish;
use Import::Into;
sub import {
my $target = caller;
strict->import::into($target);
warnings->import::into($target);
Moo->import::into($target);
namespace::clean->import::into($target); # after Moo, cleans stray imports
}
view release on metacpan or search on metacpan
sub import {
my ($class, %args) = @_;
my $caller = caller;
strict->import;
warnings->import;
utf8->import;
check_env('NET_GOOGLE_DOCUMENTSLIST_LIVE_TEST') or exit;
{
no warnings;
view release on metacpan or search on metacpan
sub import {
my ($class, %args) = @_;
my $caller = caller;
strict->import;
warnings->import;
utf8->import;
check_env(qw(
SPREADSHEETS_TITLE
view release on metacpan or search on metacpan
t/lib/Test/Riak.pm view on Meta::CPAN
no strict 'refs';
*{caller()."::test_riak"} = \&{"Test::Riak::test_riak"};
*{caller()."::test_riak_pbc"} = \&{"Test::Riak::test_riak_pbc"};
*{caller()."::test_riak_rest"} = \&{"Test::Riak::test_riak_rest"};
*{caller()."::new_riak_client"} = \&{"Test::Riak::new_riak_client"};
strict->import;
warnings->import;
}
sub test_riak (&) {
my ($test_case) = @_;
view release on metacpan or search on metacpan
inc/Test/Net/SSLeay.pm view on Meta::CPAN
sub import {
my ( $class, @imports ) = @_;
# Enable strict and warnings in the caller
strict->import;
warnings->import;
# Import common modules into the caller's namespace
my $caller = caller;
for (qw(Test::More)) {
view release on metacpan or search on metacpan
t/lib/TestHelp.pm view on Meta::CPAN
) or Test::NiceDump::nice_explain($got,$expected);
}
sub import {
my $caller = caller;
eval "package $caller; strict->import; warnings->import; use Test::More; use Test::Deep '!cmp_deeply';1;" or die $@;
no strict 'refs';
*{"${caller}::mkstomp"}=\&mkstomp;
*{"${caller}::mkstomp_testsocket"}=\&mkstomp_testsocket;
*{"${caller}::cmp_deeply"}=\&cmp;
return;
view release on metacpan or search on metacpan
t/lib/Test/NetHack/Item.pm view on Meta::CPAN
our @EXPORT = qw/test_items incorporate_ok evolution_not_ok evolution_ok fits_ok fits_not_ok/;
sub import_extra {
Test::More->export_to_level(2);
strict->import;
warnings->import;
}
sub test_items {
local $Test::Builder::Level = $Test::Builder::Level + 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/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
lib/Object/Simple.pm view on Meta::CPAN
@{"${caller}::ISA"} = ($base_class);
}
else { @{"${caller}::ISA"} = ($class) }
# strict!
strict->import;
warnings->import;
}
# Export methods
else {
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
@Test::Differences::EXPORT,
@OpenTelemetry::TraceContext::W3C::EXPORT_OK,
);
sub import {
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
FR/perlvar.pod view on Meta::CPAN
encore à compiler. Par conséquent, la nouvelle valeur de $^H ne sera
visible seulement que pendant que le corps de foo() est compilé.
La substitution du bloc BEGIN précédent parE<nbsp>:
BEGIN { require strict; strict->import('vars') }
montre comment C<use strict 'vars'> est implémenté. Voici une version
conditionnelle du même pragma lexicalE<nbsp>:
BEGIN { require strict; strict->import('vars') if $condition }
=item %^H
ATTENTIONE<nbsp>: Cette variable est disponible pour utilisation interne
uniquement. Sa disponibilité, son comportement et son contenu sont soumis à
view release on metacpan or search on metacpan
IT/perlvar.pod view on Meta::CPAN
C<pippo()> E<egrave> ancora in fase di compilazione. Il nuovo valore di C<$^H>
sarE<agrave> pertanto visibile solo durante la compilazione di C<pippo()>.
La sostituzione del blocco BEGIN con questo:
BEGIN { require strict; strict->import('vars') }
dimostra come C<use strict 'vars'> E<egrave> implementato. Ecco una
versione condizionale della stessa direttiva lessicale:
BEGIN { require strict; strict->import('vars') if $condizione }
=item %^H
ATTENZIONE: questa variabile E<egrave> strettamente ad uso interno. La sua
disponibilitE<agrave>, comportamento e contenuto sono soggetti a variazioni
view release on metacpan or search on metacpan
lib/POE/Stage.pm view on Meta::CPAN
sub import {
my $class = shift();
my $caller = caller();
strict->import();
warnings->import();
$subclass{$caller} = { } unless exists $subclass{$caller};
foreach my $export (@_) {
view release on metacpan or search on metacpan
t/lib/PPI/Test/pragmas.pm view on Meta::CPAN
$PPI::XS_DISABLE = 1;
$PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
}
sub import {
strict->import();
warnings->import();
return;
}
END {
view release on metacpan or search on metacpan
sub import
{
my $caller = caller;
_setup_signal_handlers();
strict->import::into($caller);
warnings->import::into($caller);
feature->import::into($caller, ':5.14');
autodie->import::into({level=>1}, ':all'); # `autodie` requires a bit of magic ...
goto \&Exporter::import;
}
view release on metacpan or search on metacpan
t/TestPegexForth.pm view on Meta::CPAN
package TestPegexForth;
use Test::More();
use Pegex::Forth;
use Capture::Tiny ':all';
strict->import;
warnings->import;
use base 'Exporter';
our @EXPORT = qw(test_top test_stack test_out test_err);
view release on metacpan or search on metacpan
lib/Perl/Core.pm view on Meta::CPAN
{
my ($class, $version) = @_;
my $caller = scalar caller();
warnings->import;
strict->import;
feature->import( $version ? ":$version" : DEFAULT_VERSION );
mro::set_mro($caller, 'c3');
PerlX::Define->import;
Syntax::Feature::Try->install;