Class-Mockable

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Capture::Tiny" : "0.21",
            "Data::Compare" : "0",
            "Data::Dumper::Concise" : "0",
            "PadWalker" : "1",
            "Scalar::Util" : "0",
            "Test::Class" : "0",
            "Test::Class::Load" : "0",
            "Test::More" : "0.88"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {

META.yml  view on Meta::CPAN

  version: '1.4'
name: Class-Mockable
no_index:
  directory:
    - t
    - inc
requires:
  Capture::Tiny: '0.21'
  Data::Compare: '0'
  Data::Dumper::Concise: '0'
  PadWalker: '1'
  Scalar::Util: '0'
  Test::Class: '0'
  Test::Class::Load: '0'
  Test::More: '0.88'
resources:
  bugtracker: https://github.com/DrHyde/perl-modules-Class-Mockable/issues
  repository: https://github.com/DrHyde/perl-modules-Class-Mockable
version: '1.3002'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

	    bugtracker => 'https://github.com/DrHyde/perl-modules-Class-Mockable/issues',
        }
    },
  VERSION_FROM => 'lib/Class/Mockable.pm',
  PREREQ_PM    => {
    'Data::Compare'         => 0,
    'Data::Dumper::Concise' => 0,
    'Scalar::Util'          => 0,
    'Test::More'            => 0.88, # for done_testing()
    'Capture::Tiny'         => 0.21,
    'PadWalker'             => 1.0, # earlier versions don't have closed_over()
    'Test::Class'           => 0,
    'Test::Class::Load'     => 0,
  },
);

lib/Class/Mock/Method/InterfaceTester.pm  view on Meta::CPAN

use strict;
use warnings;

our $VERSION = '1.3002';

# all this pre-amble is damned near identical to C::M::G::IT. Re-factor.
use Test::More ();
use Data::Compare;
use Scalar::Util qw(blessed);
use PadWalker qw(closed_over);
use Data::Dumper::Concise;

use Class::Mock::Common ();

use Class::Mockable
    _ok => sub { Test::More::ok($_[0], @_[1..$#_]) };

use constant {
    DIDNT_RUN_ALL             => 'didn\'t run all tests in mock method defined in %s (remaining tests: %s)',
    RUN_OUT                   => 'run out of tests on mock method defined in %s',