The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $Id: /mirror/perl/GunghoX-FollowLinks/trunk/lib/GunghoX/FollowLinks/Rule/Deny.pm 8894 2007-11-10T15:15:07.379456Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>
# All rights reserved.

package GunghoX::FollowLinks::Rule::Deny;
use strict;
use warnings;
use base qw(GunghoX::FollowLinks::Rule);

sub apply { &GunghoX::FollowLinks::Rule::FOLLOW_DENY }

1;

__END__

=head1 NAME

GunghoX::FollowLinks::Rule::Deny - Always Deny

=head1 DESCRIPTION

If you specify this rule, it will links will not be followed.

=head1 METHODS

=head2 apply

Always returns FOLLOW_DENY

=cut