Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Modify POD.

  • Loading branch information...
commit 81825ae9fb5dca875641dca94ec1a0dd52ae4fc3 1 parent 8556329
@NetPenguin authored
Showing with 21 additions and 0 deletions.
  1. +21 −0 lib/Test/EasyMock/MockControl/Class.pm
View
21 lib/Test/EasyMock/MockControl/Class.pm
@@ -12,6 +12,13 @@ use Carp qw(confess);
use Scalar::Util qw(weaken);
use Test::MockModule;
+=head1 CONSTRUCTORS
+
+=head2 new($module)
+
+Create a control instance for class method mocking.
+
+=cut
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
@@ -22,6 +29,14 @@ sub new {
return $self;
}
+=head1 INSTANCE METHODS
+
+=head2 replay
+
+Change to I<replay> mode.
+Override for creating C<Test::MockModule> and mocking class method.
+
+=cut
sub replay {
my $self = shift;
$self->SUPER::replay(@_);
@@ -42,6 +57,12 @@ sub replay {
$self->{_mock_module} = $mock_module;
}
+=head2 reset
+
+Clear expectations and change to I<record> mode.
+Override for release C<Test::MockModule> instance.
+
+=cut
sub reset {
my $self = shift;
$self->SUPER::reset(@_);
Please sign in to comment.
Something went wrong with that request. Please try again.