File Coverage

blib/lib/GunghoX/FollowLinks/Rule/Deny.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             # $Id: /mirror/perl/GunghoX-FollowLinks/trunk/lib/GunghoX/FollowLinks/Rule/Deny.pm 8894 2007-11-10T15:15:07.379456Z daisuke $
2             #
3             # Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>
4             # All rights reserved.
5              
6             package GunghoX::FollowLinks::Rule::Deny;
7 1     1   1387 use strict;
  1         1  
  1         39  
8 1     1   5 use warnings;
  1         2  
  1         41  
9 1     1   6 use base qw(GunghoX::FollowLinks::Rule);
  1         2  
  1         139  
10              
11 0     0 1   sub apply { &GunghoX::FollowLinks::Rule::FOLLOW_DENY }
12              
13             1;
14              
15             __END__
16              
17             =head1 NAME
18              
19             GunghoX::FollowLinks::Rule::Deny - Always Deny
20              
21             =head1 DESCRIPTION
22              
23             If you specify this rule, it will links will not be followed.
24              
25             =head1 METHODS
26              
27             =head2 apply
28              
29             Always returns FOLLOW_DENY
30              
31             =cut