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
t/lib/MyApp/Test/Further.pm view on Meta::CPAN
use Catalyst::Test q(MyApp);
# ugly hack
sub import {
strict->import;
warnings->import;
no strict 'refs';
my $caller = caller;
view release on metacpan or search on metacpan
t/testlib.pm view on Meta::CPAN
sub import {
my ($class) = @_;
my $caller = scalar caller();
strict->import;
warnings->import;
no strict 'refs';
*{$caller.'::init'}=\&init;
*{$caller.'::request'}=\&request;
view release on metacpan or search on metacpan
t/lib/CatalystX/Resource/TestKit.pm view on Meta::CPAN
sub import {
my $target = caller;
Test::More->import::into($target);
Test::Warnings->import::into($target, qw/ :all /);
strict->import::into($target);
warnings->import::into($target);
}
1;
view release on metacpan or search on metacpan
lib/Catmandu/Sane.pm view on Meta::CPAN
use Try::Tiny::ByClass;
use Catmandu::Error ();
sub import {
my $pkg = caller;
strict->import;
warnings->import;
feature->import(qw(:5.10));
utf8->import;
Try::Tiny::ByClass->export_to_level(1, $pkg);
}
view release on metacpan or search on metacpan
lib/Chart/GGPlot/Setup.pm view on Meta::CPAN
sub _import_tag {
my ( $class, $target, $tag ) = @_;
if ( $tag eq ':base' ) {
strict->import::into($target);
warnings->import::into($target);
utf8->import::into($target);
feature->import::into( $target, ':5.16' );
Carp->import::into($target);
view release on metacpan or search on metacpan
lib/Class/DbC.pm view on Meta::CPAN
type => HASHREF,
optional => 1,
);
sub import {
strict->import();
my $class = shift;
my %arg = validate(@_, {
interface => \%Contract_validation_spec,
invariant => \%Contract_validation_spec,
extends => { type => SCALAR, optional => 1 },
view release on metacpan or search on metacpan
lib/Class/Method/Delegate.pm view on Meta::CPAN
my $caller = caller;
# Wants delegate
*{"${caller}::delegate"} = sub { delegate($caller, @_) };
strict->import;
}
sub delegate {
my $class = shift;
my $options = @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {};
lib/Class/Method/Delegate.pm view on Meta::CPAN
$delegation_object->delegated_by($self);
}
$delegation_object->$handler(@_);
}
}
strict->import;
}
1;
__END__
view release on metacpan or search on metacpan
lib/Class/Tiny/Antlers.pm view on Meta::CPAN
my %want =
map +($_ => 1),
map +(@{ $EXPORT_TAGS{substr($_, 1)} or [$_] }),
(@_ ? @_ : '-default');
strict->import if delete $want{strict};
warnings->import if delete $want{warnings};
my $caller = caller;
$me->_install_tracked($caller, has => sub { unshift @_, $me, $caller; goto \&has }) if delete $want{has};
$me->_install_tracked($caller, extends => sub { unshift @_, $me, $caller; goto \&extends }) if delete $want{extends};
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
examples/helloworld/app/lib/Dwarf/Pragma.pm view on Meta::CPAN
$utf8 = 1 unless defined $args{utf8};
$feature = "5.10" unless defined $args{feature};
warnings->import;
strict->import;
boolean->import;
boolean->export_to_level(1);
autobox::Core->import;
if ($utf8) {
view release on metacpan or search on metacpan
lib/Code/Style/Kit/Parts/Common.pm view on Meta::CPAN
use Import::Into;
# use strict
sub feature_strict_default { 1 }
sub feature_strict_export { strict->import() }
sub feature_strict_order { 1 } # export this first
# try {} catch {} finally {};
sub feature_try_tiny_default { 1 }
sub feature_try_tiny_export_list { 'Try::Tiny' }
view release on metacpan or search on metacpan
lib/CodeGen/Cpppp/Template.pm view on Meta::CPAN
${"${pkg}::cpppp_version"}= $cpppp_ver;
$pkg->_init_parse_data($parse_data);
}
sub _setup_derived_package($class, $pkg, $cpppp_ver) {
strict->import;
warnings->import;
utf8->import;
experimental->import(qw( lexical_subs signatures postderef ));
no strict 'refs';
view release on metacpan or search on metacpan
lib/Cogwheel.pm view on Meta::CPAN
{
sub import {
my $CALLER = caller();
strict->import;
warnings->import;
# we should never export to main
return if $CALLER eq 'main';
Moose::init_meta( $CALLER, 'Cogwheel::Object' );
view release on metacpan or search on metacpan
}
}
sub IMPORT {
shift;
strict->import;
warnings->import;
my $caller = caller 2;
no strict "refs";
*{"$caller\::Filter"} = \@Filter;
*{"$caller\::Data"} = \$Data;
view release on metacpan or search on metacpan
lib/Const/Exporter.pm view on Meta::CPAN
# RECOMMEND PREREQ: Storable 3.05
sub import {
my $pkg = shift;
strict->import;
warnings->import;
my $caller = caller;
my $stash = Package::Stash->new($caller);
view release on metacpan or search on metacpan
t/Helper.pm view on Meta::CPAN
sub import {
my $class = shift;
my $caller = caller;
my $keys;
strict->import;
warnings->import;
if (defined $ENV{LIVE_DATABASE}) {
$ENV{REDIS_BACKEND_PID} = fork or exec 'redis-server t/etc/redis.conf';
$ENV{CONVOS_REDIS_URL} = "redis://127.0.0.1:30000/$ENV{LIVE_DATABASE}";
view release on metacpan or search on metacpan
lib/Crane/Base.pm view on Meta::CPAN
my ( $class, @isa ) = @_;
my $caller = caller;
strict->import();
warnings->import();
utf8->import();
feature->import(qw( :5.14 ));
if ( scalar @isa ) {
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
);
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
t/lib/Test.pm view on Meta::CPAN
);
sub import {
unshift @INC, 't/lib';
strict->import;
warnings->import;
goto &Test::Builder::Module::import;
}
view release on metacpan or search on metacpan
lib/DBIx/Class/Candy.pm view on Meta::CPAN
my $orig = $_[1]->{import_args};
$_[1]->{import_args} = [];
%$custom_aliases = ();
@$custom_methods = ();
strict->import;
warnings->import;
if ($perl_version) {
require feature;
feature->import(":5.$perl_version")
view release on metacpan or search on metacpan
lib/DBIx/Class/ResultDDL.pm view on Meta::CPAN
our $CALLER; # can be used localized to wrap caller context into an anonymous sub
sub swp :Export(-) {
my $self= shift;
require strict; strict->import if $^H == $DBIx::Class::ResultDDL::_default_h;
require warnings; warnings->import if $^W == $DBIx::Class::ResultDDL::_default_w;
$self->_inherit_dbic;
}
sub _inherit_dbic {
my $self= shift;
view release on metacpan or search on metacpan
lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pm view on Meta::CPAN
### This may look crazy, but it in fact tangibly ( by 50(!)% ) shortens
# the skip-test time when everything requested is unavailable
BEGIN {
if ( $ENV{RELEASE_TESTING} ) {
require warnings and warnings->import;
require strict and strict->import;
}
}
sub croak {
require Carp;
view release on metacpan or search on metacpan
eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
}
sub import {
strict->import;
warnings->import;
utf8->import;
}
sub setup_dbh {
view release on metacpan or search on metacpan
our $PK = 'INT NOT NULL AUTO_INCREMENT PRIMARY KEY';
sub import {
warnings->import;
strict->import;
utf8->import;
feature->import(':5.10');
my $pkg = caller();
eval "
package $pkg;
view release on metacpan or search on metacpan
eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
}
sub import {
strict->import;
warnings->import;
utf8->import;
}
1;
view release on metacpan or search on metacpan
lib/DBIx/Skinny.pm view on Meta::CPAN
}
$caller->_setup_dbd;
DBIx::Skinny::Util::load_class($schema);
strict->import;
warnings->import;
}
sub new {
my ($class, $connection_info) = @_;
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/Dancer.pm view on Meta::CPAN
sub import {
my ($class, @args) = @_;
my ($package, $script) = caller;
strict->import;
warnings->import;
utf8->import;
my @final_args;
my $syntax_only = 0;
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;