view release on metacpan or  search on metacpan

lib/Acme/Insult/Pirate.pm  view on Meta::CPAN

        # This API only returns strings for now
        #~ $res->{success} ? decode_json( $res->{content} ) : ();
        $res->{success} ? { insult => $res->{content} } : ();
    }
    #
    sub insult (%args) { my $ref = _http(%args); $ref ? bless $ref, __PACKAGE__ : $ref }
}
1;
__END__

=encoding utf-8

=head1 NAME

Acme::Insult::Pirate - Programmatically Generate Pirate Themed Insults

=head1 SYNOPSIS

    use Acme::Insult::Pirate qw[insult];
    say insult( ); # stringify