File Coverage

blib/lib/WWW/Shorten/NotLong.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::NotLong - Perl interface to notlong.com
6              
7             =head1 SYNOPSIS
8              
9             # Do not use
10              
11             =head1 DESCRIPTION
12              
13             A Perl interface to the web site notlong.com. Notlong.com simply maintains
14             a database of long URLs, each of which has a unique identifier.
15              
16             Currently, notlong.com is returning the message "Unable to process that
17             request at this time. Consider https://goo.gl" for all requests. I have
18             therefore marked it as dead.
19              
20             =cut
21              
22             package WWW::Shorten::NotLong;
23              
24 1     1   795 use 5.006;
  1         4  
25 1     1   7 use strict;
  1         2  
  1         39  
26 1     1   6 use warnings;
  1         1  
  1         77  
27              
28             require WWW::Shorten::_dead;
29             our $VERSION = '9.99';
30              
31             0;
32              
33             __END__