File Coverage

blib/lib/GunghoX/FollowLinks/Rule/Allow.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/Allow.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::Allow;
7 1     1   1851 use strict;
  1         2  
  1         38  
8 1     1   6 use warnings;
  1         3  
  1         46  
9 1     1   6 use base qw(GunghoX::FollowLinks::Rule);
  1         2  
  1         153  
10              
11 0     0 1   sub apply { &GunghoX::FollowLinks::Rule::FOLLOW_ALLOW }
12              
13             1;
14              
15             __END__
16              
17             =head1 NAME
18              
19             GunghoX::FollowLinks::Rule::Allow - Always Allow
20              
21             =head1 DESCRIPTION
22              
23             If you specify this rule, it will always allow a link to be followed.
24              
25             =head1 METHODS
26              
27             =head2 apply
28              
29             Always returns true
30              
31             =cut