WWW::Shorten::SCK

SCK.pm

package WWW::Shorten::SCK;

#
# URL shortening provider for http://sck.pm
#

use strict;
use warnings;

sub new { bless {} }

sub shorterlink_start {
  my ($self, $link) = @_;
  { GET => "http://sck.pm/?a=1&url=$link" }
}

sub shorterlink_result {
  my ($self, $content) = @_;

  if ($content =~ /^(http\S+)/) {
    return $1;
  }

  die $content;
}

sub longerlink_start {
  my ($self, $link) = @_;

  $link = "http://sck.pm/$link" unless
    $link =~ /^http/;

  { GET => $link }
}

sub longerlink_result { die $_[1] }

1;