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   491 use strict;
  9         12  
  9         217  
4 9     9   27 use warnings;
  9         8  
  9         476  
5              
6             our $VERSION = '3.093';
7             $VERSION = eval $VERSION;
8              
9             die <<'EOF';
10              
11             This WWW::Shorten service is inactive.
12             Please use a different one.
13              
14             EOF
15              
16             1;
17              
18             =head1 NAME
19              
20             WWW::Shorten::_dead - Where dead link-shortening services go
21              
22             =head1 SYNOPSIS
23              
24             # just change your service to look like this:
25             package WWW::Shorten::SomeDeadService;
26             use strict;
27             use warnings;
28              
29             our $VERSION = '1.001';
30             $VERSION = eval $VERSION;
31              
32             # ensure a common error message will be given to the user
33             require WWW::Shorten::_dead;
34              
35             1;
36              
37             =head1 DESCRIPTION
38              
39             This is just a module that we use for link-shortening services that
40             we used to support but which no longer exist.
41              
42             =head1 AUTHOR
43              
44             Iain Truskett
45              
46             =head1 SEE ALSO
47              
48             L
49              
50             =cut