File Coverage

blib/lib/Test/Mocha/MethodStub.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	2	4	50.0
subroutine	7	7	100.0
pod	0	3	100.0
total	39	44	95.4

package Test::Mocha::MethodStub;
# ABSTRACT: Objects to represent stubbed methods with arguments and responses
$Test::Mocha::MethodStub::VERSION = '0.66';
use parent 'Test::Mocha::Method';
use strict;
use warnings;

sub new {
    # uncoverable pod
    my $class = shift;
    my $self  = $class->SUPER::new(@_);

    $self->{responses} ||= [];  # ArrayRef[ CodeRef ]

    return $self;
}

sub __responses {
    my ($self) = @_;
    return $self->{responses};
}

sub cast {
    # """Convert the type of the given object to this class"""
    # uncoverable pod
    my ( $class, $obj ) = @_;
    $obj->{responses} ||= [];
    return bless $obj, $class;
}

sub execute_next_response {
    # uncoverable pod
    my ( $self, @args ) = @_;
    my $responses = $self->__responses;

    # return undef by default
    return if @{$responses} == 0;

    # shift the next response off the front of the queue
    # ... except for the last one
    my $response =
      @{$responses} > 1 ? shift( @{$responses} ) : $responses->[0];

    return $response->(@args);
}

1;