Yet Another CPAN Grep

WWW-Shorten-SCK ( C/CE/CELOGEEK/WWW-Shorten-SCK-0.8.tar.gz, CELOGEEK, 2020; MetaCPAN )

WWW-Shorten-SCK/lib/WWW/Shorten/SCK.pm ( view source; MetaCPAN )

SCK;
use strict;
use warnings;
use LWP::Protocol::https;
use URI::Escape qw/uri_escape_utf8/;
use JSON;
our $VERSION = '0.8';    # VERSION

# ABSTRACT: Perl interface to sck.pm

use 5.006;

use parent

( $sck_url . '/shorten?' . $url, );
    return unless $resp->is_success;
    my $content = decode_json( $resp->content );
    if ( ref $content && $content->{status} eq 'OK' ) {
        return $conten

//api.sck.pm/expand?" . $sck_url );
    return unless $resp->is_success;
    my $content = decode_json( $resp->content );
    if ( ref $content && $content->{status} eq 'OK' ) {
        return $conten