view release on metacpan or  search on metacpan

t/test-lib/MockSP.pm  view on Meta::CPAN

use AuthenNZRealMeTestHelper;

use MIME::Base64    qw(decode_base64);
use HTTP::Response  qw();


sub resolve_artifact {
    my $self = shift;
    $self->{_test_request_log_} = [];
    return $self->SUPER::resolve_artifact(@_);
}


sub test_request_log {
    my $self = shift;
    return @{ $self->{_test_request_log_} };
}


sub _https_post {

t/test-lib/MockSP.pm  view on Meta::CPAN

sub wind_back_clock {
    my $self = shift;
    $self->{_stopped_clock_time_} = shift;
}


sub now_as_iso {
    my $self = shift;

    return $self->{_stopped_clock_time_} if $self->{_stopped_clock_time_};
    return $self->SUPER::now_as_iso();
}


1;