File Coverage

blib/lib/Test/Mockify/MethodSpy.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	28	29	96.5

package Test::Mockify::MethodSpy;

use parent 'Test::Mockify::Method';
use strict;
use warnings;

#---------------------------------------------------------------------
sub new {
    my $class = shift;
    my ($OriginalMethodPointer) = @_;
    my $self = $class->SUPER::new();
    $self->{'OriginalMethodPointer'} = $OriginalMethodPointer;
    return $self;
}
#---------------------------------------------------------------------
sub _addToTypeStore { ## no critic (Private subroutine/method) used in chaining
    my $self = shift;
    my ($Signature, $NewExpectedParameters) = @_;
    my $SignatureKey = join('',@{$Signature});
    my $Parameter = Test::Mockify::Parameter->new($NewExpectedParameters);
    $Parameter->buildReturn()->thenCall($self->{'OriginalMethodPointer'});
    push(@{$self->{'TypeStore'}{$SignatureKey}}, $Parameter );
    return;
}
1;