File Coverage

blib/lib/WebService/WTFIsMyIP.pm

Criterion	Covered	Total	%
statement	23	50	46.0
branch	0	10	0.0
condition	0	3	0.0
subroutine	8	10	80.0
pod	1	2	50.0
total	32	75	42.6

use warnings;
use 5.020;
use experimental qw( signatures );
use stable qw( postderef );
use true;

package WebService::WTFIsMyIP 0.01 {

    # ABSTRACT: Client for wtfismyip.com


    use Ref::Util qw( is_blessed_ref );
    use JSON::MaybeXS qw( decode_json );
    use Class::Tiny {
        ua => sub {
            require HTTP::Tiny;
            return HTTP::Tiny->new;
        },
        base_url => "https://wtfismyip.com/",
    };

    sub BUILD ($self, $) {
        unless(is_blessed_ref $self->ua) {
            die "ua must be an instance of HTTP::AnyUA or a user agent supported by HTTP::AnyUA";
        }
        unless($self->ua->isa("HTTP::AnyUA")) {
            require HTTP::AnyUA;
            $self->ua(HTTP::AnyUA->new($self->ua));
        }

        unless(is_blessed_ref $self->base_url && $self->base_url->isa("URI")) {
            require URI;
            $self->base_url(URI->new("@{[ $self->base_url ]}"));
        }
    }


    sub json ($self) {

        my $url = $self->base_url->clone;
        $url->path("/json");

        my $res = $self->ua->get($url);
        if($res->{success}) {
            my %hash = decode_json($res->{content})->%*;
            foreach my $key (keys %hash) {
                my $new_key = $key =~ s/^YourFucking//r;
                $hash{$new_key} = delete $hash{$key} if $key ne $new_key;
            }
            return \%hash;
        } else {
            die sprintf("%s %s: %s", $res->{status}, $res->{reason}, $url);;
        }
    }

}

__END__