view release on metacpan or search on metacpan
share/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/Module/Setup/Test/Flavor.pm view on Meta::CPAN
for my $func (qw/ run_flavor_test name flavor files file dirs options default_dialog dialog /) {
no strict 'refs';
*{"$caller\::$func"} = \&{ $func };
}
strict->import;
warnings->import;
}
my $tests = {};
sub name ($) {
view release on metacpan or search on metacpan
t/Helper.pm view on Meta::CPAN
eval <<" CODE" or die $@;
package $caller;
use Mojo::Base -base;
use Test::More;
strict->import;
warnings->import;
1;
CODE
}
view release on metacpan or search on metacpan
t/Helper.pm view on Meta::CPAN
sub import {
my $class = shift;
my $caller = caller;
strict->import;
warnings->import;
eval <<"HERE" or die $@;
package $caller;
use Test::More;
view release on metacpan or search on metacpan
t/Helper.pm view on Meta::CPAN
my $class = shift;
my $caller = caller;
unlink glob 't/public/packed/*' unless $ENV{TEST_KEEP_FILES};
strict->import;
warnings->import;
eval <<" CODE" or die $@;
package $caller;
use Test::More;
view release on metacpan or search on metacpan
sub import {
my $class = shift;
my $caller = caller;
strict->import;
warnings->import;
no strict 'refs';
*{"$caller\::t"} = \$class->make_app;
}
view release on metacpan or search on metacpan
t/Helper.pm view on Meta::CPAN
sub import {
my $class = shift;
my $caller = caller;
strict->import;
warnings->import;
eval <<"HERE" or die;
package $caller;
use Test::Mojo;
view release on metacpan or search on metacpan
lib/Momo.pm view on Meta::CPAN
};
}
set_prototype \&{ $package . '::extends' }, '@';
set_prototype \&{ $package . '::with' }, '@';
}
strict->import;
warnings->import;
utf8->import;
Carp->import;
if ( $] >= 5.010 ) {
require 'feature.pm';
view release on metacpan or search on metacpan
lib/MongoDBx/Tiny.pm view on Meta::CPAN
my $caller = (caller(0))[0];
{
no strict 'refs';
push @{"${caller}::ISA"}, __PACKAGE__;
}
strict->import;
warnings->import;
__PACKAGE__->export_to_level(1, @_);
}
require Exporter;
view release on metacpan or search on metacpan
t/lib/Test/Monitis.pm view on Meta::CPAN
*{"${caller}::agent"} = \&agent;
use strict;
}
warnings->import;
strict->import;
eval <<END;
package $caller;
Test::More->import(\%params);
END
view release on metacpan or search on metacpan
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
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
lib/MooX/Pression.pm view on Meta::CPAN
}
# Export utility stuff
#
MooX::Pression::_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
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/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
lib/Moos.pm view on Meta::CPAN
use constant default_metarole => 'Moos::Meta::Role';
use constant default_base_class => 'Moos::Object';
sub import {
# Turn on strict/warnings for caller
strict->import;
warnings->import;
($_[1]||'') eq -Role and goto \&role_import;
my ($class, %args) = @_;
view release on metacpan or search on metacpan
lib/Moose/Exporter.pm view on Meta::CPAN
# perlvar) which affects the current compilation -
# i.e. the file who use'd us - which is why we don't need
# to do anything special to make it affect that file
# rather than this one (which is already compiled)
strict->import;
warnings->import;
my $did_init_meta;
for my $c ( grep { $_->can('init_meta') } $class, @{$exports_from} ) {
lib/Moose/Exporter.pm view on Meta::CPAN
$meta_lookup->($opts{for_class});
};
}
sub import {
strict->import;
warnings->import;
}
1;
view release on metacpan or search on metacpan
lib/MooseX/Compile/Compiler.pm view on Meta::CPAN
$__mx_compile_overridden_imports{$class} = defined &$import && \&$import;
*$import = sub {
if ( caller eq $$quoted_class$$ ) {
if ( $class eq 'Moose' ) {
strict->import;
warnings->import;
}
return;
}
view release on metacpan or search on metacpan
lib/MooseX/Declare.pm view on Meta::CPAN
sub import {
my ($class, %args) = @_;
my $caller = caller();
strict->import;
warnings->import;
for my $keyword ($class->keywords) {
$keyword->setup_for($caller, %args, provided_by => $class);
}
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