File Coverage

blib/lib/WWW/Shorten/_dead.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             # $Id$
2             package WWW::Shorten::_dead;
3              
4 5     5   893 use strict;
  5         5  
  5         94  
5 5     5   14 use warnings;
  5         6  
  5         205  
6              
7             our $VERSION = '1.92';
8             die <<'EOF';
9            
10             This WWW::Shorten service is inactive.
11             Please use a different one.
12            
13             EOF
14              
15             1;
16              
17             =head1 NAME
18            
19             WWW::Shorten::_dead - Where dead link-shortening services got
20            
21             =head1 SYNOPSIS
22            
23             # No appropriate synopsis
24            
25             =head1 DESCRIPTION
26            
27             This is just a module that we use for link-shortening services that
28             we used to support but which no longer exist.
29