Closure-Explicit

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "test" : {
         "recommends" : {
            "CPAN::Meta" : "2.120900"
         },
         "requires" : {
            "ExtUtils::MakeMaker" : "0",
            "File::Spec" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Test::CheckDeps" : "0.010",
            "Test::Fatal" : "0",
            "Test::More" : "0.98",
            "Test::Refcount" : "0.07"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "mailto" : "bug-closure-explicit at rt.cpan.org",
         "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=Closure-Explicit"

META.yml  view on Meta::CPAN

---
abstract: 'check coderefs for unintended lexical capture'
author:
  - 'Tom Molesworth <cpan@perlsite.co.uk>'
build_requires:
  ExtUtils::MakeMaker: '0'
  File::Spec: '0'
  IO::Handle: '0'
  IPC::Open3: '0'
  Test::CheckDeps: '0.010'
  Test::Fatal: '0'
  Test::More: '0.98'
  Test::Refcount: '0.07'
  perl: '5.014000'
configure_requires:
  ExtUtils::MakeMaker: '6.48'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.009, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL  view on Meta::CPAN

  "PREREQ_PM" => {
    "PadWalker" => 0,
    "parent" => 0
  },
  "TEST_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0,
    "File::Spec" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::CheckDeps" => "0.010",
    "Test::Fatal" => 0,
    "Test::More" => "0.98",
    "Test::Refcount" => "0.07"
  },
  "VERSION" => "0.002",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "ExtUtils::MakeMaker" => 0,
  "File::Spec" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "PadWalker" => 0,
  "Test::CheckDeps" => "0.010",
  "Test::Fatal" => 0,
  "Test::More" => "0.98",
  "Test::Refcount" => "0.07",
  "parent" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;

cpanfile  view on Meta::CPAN

requires 'parent', 0;
requires 'PadWalker', 0;

on 'test' => sub {
	requires 'Test::More', '>= 0.98';
	requires 'Test::Fatal', 0;
	requires 'Test::Refcount', '0.07';
};

t/00-report-prereqs.dd  view on Meta::CPAN

       'test' => {
                   'recommends' => {
                                     'CPAN::Meta' => '2.120900'
                                   },
                   'requires' => {
                                   'ExtUtils::MakeMaker' => '0',
                                   'File::Spec' => '0',
                                   'IO::Handle' => '0',
                                   'IPC::Open3' => '0',
                                   'Test::CheckDeps' => '0.010',
                                   'Test::Fatal' => '0',
                                   'Test::More' => '0.98',
                                   'Test::Refcount' => '0.07'
                                 }
                 }
     };
  $x;
 }

t/basic.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 4;
use Test::Fatal;

use Closure::Explicit qw(callback);

{
	package Example;
	sub new { my $class = shift; bless {}, $class }
	sub method { my $self = shift; pass('called method') }
}
local $SIG{__WARN__} = sub { note "had warning: @_" };
my $self = new_ok('Example');

t/cleanup.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Fatal;
use Test::Refcount;
use Scalar::Util qw(weaken);

use Closure::Explicit qw(callback);

{
	my $x = [];
	my $y = 123;
	my $weak_copy;
	{

t/coderef.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 4;
use Test::Fatal;

use Closure::Explicit qw(callback);

{
	package Example;
	sub new { my $class = shift; bless {}, $class }
	sub method { my $self = shift; pass('called method') }
}
local $SIG{__WARN__} = sub { note "had warning: @_" };
my $self = new_ok('Example');

t/nested-scope.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 10;
use Test::Fatal;

use Closure::Explicit qw(callback);

{
	package Example;
	use Test::More;
	sub new { my $class = shift; bless {}, $class }
	sub method { my $self = shift; pass('called method') }
}
local $SIG{__WARN__} = sub { note "had warning: @_" };

t/refcount.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 6;
use Test::Fatal;
use Test::Refcount;

use Closure::Explicit qw(callback);

{
	package Example;
	sub new { my $class = shift; bless {}, $class }
	sub method { my $self = shift; pass('called method') }
}
local $SIG{__WARN__} = sub { note "had warning: @_" };

t/weaken.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 10;
use Test::Fatal;
use Test::Refcount;
use Scalar::Util ();

use Closure::Explicit qw(callback);

{
	package Example;
	use Test::More;
	our $GLOBAL_SELF;
	sub new { my $class = shift; my $self = bless {}, $class; Scalar::Util::weaken($GLOBAL_SELF = $self); $self }