Yet Another CPAN Grep

WebService-WTFIsMyIP ( P/PL/PLICEASE/WebService-WTFIsMyIP-0.01.tar.gz, PLICEASE, 2025; MetaCPAN )

WebService-WTFIsMyIP/lib/WebService/WTFIsMyIP.pm ( view source; MetaCPAN )

 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;

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($re

Service::WTFIsMyIP;
 
 my $wtfismyip = WebService::WTFIsMyIP->new;
 say "your IP is", $wtfismyip->json->{IPAddress};

=head1 DESCRIPTION

This class provides an interface to the L<wtfismyip|https://wt