File Coverage

blib/lib/WWW/Shorten/SCK.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	7	14	50.0
condition	2	6	33.3
subroutine	10	10	100.0
pod	2	2	100.0
total	61	74	82.4

#
# This file is part of WWW-Shorten-SCK
#
# This software is copyright (c) 2013 by celogeek .
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package WWW::Shorten::SCK;
use strict;
use warnings;
use URI::Escape qw/uri_escape_utf8/;
use JSON;
our $VERSION = '0.5';    # VERSION

# ABSTRACT: Perl interface to sck.pm

use 5.006;

use parent qw( WWW::Shorten::generic Exporter );
use vars qw(@EXPORT_OK %EXPORT_TAGS);
@EXPORT_OK = qw( makeashorterlink makealongerlink );
%EXPORT_TAGS = ( all => [@EXPORT_OK] );

use Carp;

sub makeashorterlink {
    my $url     = shift or croak 'No URL passed to makeashorterlink';
    my $ua      = __PACKAGE__->ua();
    my $sck_url = 'http://api.sck.pm';
    my $resp    = $ua->get( $sck_url . '?url=' . uri_escape_utf8($url), );
    return unless $resp->is_success;
    my $content = decode_json( $resp->content );
    if ( ref $content && $content->{status} eq 'OK' ) {
        return 'http://sck.pm/' . $content->{short};
    }
    return;
}

sub makealongerlink {
    my $sck_url = shift
        or croak 'No SCK key / URL passed to makealongerlink';
    my $ua = __PACKAGE__->ua();

    #call api to get long url from the short
    $sck_url = substr( $sck_url, 14 )
        if substr( $sck_url, 0, 14 ) eq 'http://sck.pm/';

    my $resp = $ua->get("http://api.sck.pm?surl=$sck_url");
    return unless $resp->is_success;
    my $content = decode_json( $resp->content );
    if ( ref $content && $content->{status} eq 'OK' ) {
        return $content->{url};
    }
    return;

}

1;

__END__