File Coverage

blib/lib/WWW/Shorten/OneShortLink.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             # $Id$
2              
3             =head1 NAME
4              
5             WWW::Shorten::OneShortLink - Perl interface to 1sl.net
6              
7             =head1 SYNOPSIS
8              
9             use WWW::Shorten::OneShortLink;
10              
11             use WWW::Shorten 'OneShortLink';
12              
13             $short_url = makeashorterlink($long_url);
14              
15             $long_url = makealongerlink($short_url);
16              
17             =head1 DESCRIPTION
18              
19             A Perl interface to the web site 1sl.net. OneShortLink simply maintains
20             a database of long URLs, each of which has a unique identifier.
21              
22             OneShortLink's web site is currently returning a default Apache page, so
23             I'm marking the site as dead.
24              
25             =cut
26              
27             package WWW::Shorten::OneShortLink;
28              
29 1     1   436 use 5.006;
  1         2  
30 1     1   4 use strict;
  1         1  
  1         18  
31 1     1   4 use warnings;
  1         1  
  1         50  
32              
33             require WWW::Shorten::_dead;
34             our $VERSION = '9.99';
35              
36             0;
37              
38              
39             __END__