File Coverage

blib/lib/Nexmo/SMS/MockLWP.pm

Criterion	Covered	Total	%
statement	46	48	95.8
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	56	60	93.3

package Nexmo::SMS::MockLWP;

# ABSTRACT: Module for the Nexmo SMS API!

=head1 DESCRIPTION

This module mocks POST requests. It exists only for the unit tests!

=cut

use LWP::UserAgent;
use HTTP::Response;
use JSON::PP;

use strict;
use warnings;

no warnings 'redefine';

our $VERSION = 0.01;

*LWP::UserAgent::post = sub {
    my ($object,$url,$params) = @_;

    my $json = do{ undef $/;  };

    my $coder = JSON::PP->new->ascii->pretty->allow_nonref;
    my $perl  = $coder->decode( $json );
    my $from  = $params->{from};

    if ( $url =~ /get-balance/ ) {
        $from = 'get-balance';
        $url  = 'get-balance';
    }

    my $subhash   = $perl->{$url}->{$from};
    my $response  = $coder->encode( $subhash );

    my $http_response = HTTP::Response->new( 200 );
    $http_response->content( $response );

    return $http_response;
};

*LWP::UserAgent::get = sub {
    my ($object,$url,$params) = @_;

    my $json = do{ undef $/;  };

    my $coder = JSON::PP->new->ascii->pretty->allow_nonref;
    my $perl  = $coder->decode( $json );
    my $from  = $params->{from};

    if ( $url =~ /get-balance/ ) {
        $from = 'get-balance';
        $url  = 'get-balance';
    }

    my $subhash   = $perl->{$url}->{$from};
    my $response  = $coder->encode( $subhash );

    my $http_response = HTTP::Response->new( 200 );
    $http_response->content( $response );

    return $http_response;
};

1;

__DATA__