Merge pull request #16 from ziali088/master

Add method to conveniently no-op

lib/Test/MockModule.pm

@@ -74,6 +74,11 @@ sub mock {
 	}
 }
 
+sub noop {
+    my $self = shift;
+    $self->mock($_,1) for @_;
+}
+
 sub original {
 	my $self = shift;
 	my ($name) = @_;
@@ -327,6 +332,14 @@ Restores all the subroutines in the package that were mocked. This is
 automatically called when all C<Test::MockObject> objects for the given package
 go out of scope.
 
+=item noop($subroutine [, ...])
+
+Given a list of subroutine names, mocks each of them with a no-op subroutine. Handy
+for mocking methods you want to ignore!
+
+    # Neuter a list of methods in one go
+    $module->noop('purge', 'updated');
+
 =back
 
 =head1 SEE ALSO

t/lib/ExampleModule.pm

@@ -13,4 +13,8 @@ sub param {
 	return;
 }
 
-1;
+sub cookie {
+    return 'choc-chip';
+}
+
+1;

t/mockmodule.t

@@ -121,6 +121,16 @@ like($@, qr/Invalid package name/, ' ... croaks if package is undefined');
 	$mcgi->mock('param', sub { return 'This sub is mocked' });
 	is(ExampleModule::param(), 'This sub is mocked', '... mocked params');
 	ok($mcgi->is_mocked('param'), '... returns true for non-mocked sub');
+
+	# noop()
+	is(ExampleModule::cookie(), 'choc-chip', 'cookie does default behaviour');
+	$mcgi->noop('cookie');
+	ok($mcgi->is_mocked('cookie'), 'cookie is mocked using noop');
+	$mcgi->unmock('cookie');
+	$mcgi->unmock('Vars');
+	$mcgi->noop('cookie', 'Vars');
+	is(ExampleModule::cookie(), 1, 'now cookie does nothing');
+	is(ExampleModule::Vars(), 1, 'now Vars does nothing');
 }
 
 isnt(ExampleModule::param(), 'This sub is mocked',