Add warning when 'unmock' called without arguments

Author: matthewhughes934

lib/Test/MockModule.pm

@@ -157,6 +157,7 @@ sub original {
 sub unmock {
 	my $self = shift;
 
+	carp 'Nothing to unmock' unless @_;
 	for my $name (@_) {
 		croak "Invalid subroutine name: $name" unless _valid_subname($name);
 

t/mockmodule.t

@@ -103,6 +103,9 @@ like($@, qr/Invalid package name/, ' ... croaks if package is undefined');
 	$mcgi->unmock('Vars');
 	like($warn, qr/ was not mocked/, "... warns if a subroutine isn't mocked");
 
+	$mcgi->unmock();
+	like($warn, qr/Nothing to unmock/, '... warns if no arguments passed to unmock');
+
 	$mcgi->unmock('param');
 	is(\&{"ExampleModule::param"}, $orig_param, '... restores the original subroutine');