File Coverage

blib/lib/WebService/ThrowAwayMail.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package WebService::ThrowAwayMail;

our $VERSION = '0.05';

use Moo;
use MooX::LazierAttributes qw/rw lzy/;
use MooX::ValidateSubs;
use Types::Standard qw/Object Str HashRef/;

use HTTP::Tiny;
use Carp qw/croak/;

attributes (
    tiny => [rw, Object, {lzy, default => sub {HTTP::Tiny->new}}],
    base_url => [Str, {lzy, default => 'https://throwawaymail.org/getalias/text'}],
);

validate_subs (
    get_alias => { params => [], returns => [[Str]] },
    get => { params => [ [Str, 'base_url'] ], returns => [[HashRef]] },
);

sub get {
    my $response = $_[0]->tiny->get($_[1]);
    $response->{success} and return $response;
    croak sprintf "something went terribly wrong status - %s - reason - %s",
        $response->{status}, $response->{reason};
}

sub get_alias {
    return $_[0]->get->{content};
}

1;

__END__