Mocking Objects

Test::Mock::Simple

Why

Test::MockObject pollutes the namespace (remove)
Test::Mock::Class, Test::MockClass, Mock::Quick, Test::Mock::Test, Test::Mock::ExternalCommand, Test::EasyMock
Test::Mock::Simple ???
Am I doing something wrong? 126 (53) vs 904 (446)

package LW::Mock::Network::SNMP::Remote::Acl;

use Test::Mock::Simple;

my %mock_data = ();

my $mock = Test::Mock::Simple->new(module => 'LW::Network::SSH::Remote::Acl');
$mock->add(remove => sub { _remove(@_); });

sub add {
  my $self = shift;
  my $name = shift;
  my $sub = shift;

  {
    no strict;
    no warnings;

    *{$self->{module} . '::' . $name} = $sub;
  }
}

 use_ok('LW::Mock::Network::SSH::Remote::Acl');

my $acl = 1977;

my $dist = LW::Subaccnt->search(
     features => { DeviceType => 'Distribution' }
)->first;

$dist->api->acl->remove($acl);
my @current = $dist->api->acl->entries($acl);

is(scalar(@current), 0, "No entries on ACL $acl after delete");

$self (not really 'self')

package LW::Mock::Network::SNMP::Remote::Acl;

use Test::Mock::Simple;

my %mock_data = ();

my $mock = Test::Mock::Simple->new(module => 'LW::Network::SSH::Remote::Acl');

$mock->add(add => sub { _add(@_); });

$mock->add(delete => sub { _delete(@_); });

$mock->add(entries => sub { _entries(@_); });

$mock->add(overwrite => sub { _overwrite(@_); });

$mock->add(remove => sub { _remove(@_); });

$mock->add(type => sub { _type(@_); });

sub _remove {

my ($self, $acl, $entry) = @_;

my $type = ($entry->{ip}) ? 'standard' : 'extended';

$self->_startEditMode($type, $acl);

<...snip...>

}

sub _startEditMode { <...snip...> }

github.com/skeletonkey/TestMockSimple
metacpan.org/pod/Test::Mock::Simple