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

xt/t7.pl  view on Meta::CPAN

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