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             package WWW::Shorten::_dead;
2              
3 9     9   537 use strict;
  9         16  
  9         238  
4 9     9   39 use warnings;
  9         15  
  9         487  
5              
6             our $VERSION = '3.094';
7              
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 go
20              
21             =head1 SYNOPSIS
22              
23             # just change your service to look like this:
24             package WWW::Shorten::SomeDeadService;
25             use strict;
26             use warnings;
27              
28             our $VERSION = '1.001';
29             $VERSION = eval $VERSION;
30              
31             # ensure a common error message will be given to the user
32             require WWW::Shorten::_dead;
33              
34             1;
35              
36             =head1 DESCRIPTION
37              
38             This is just a module that we use for link-shortening services that
39             we used to support but which no longer exist.
40              
41             =head1 AUTHOR
42              
43             Iain Truskett
44              
45             =head1 SEE ALSO
46              
47             L
48              
49             =cut