File Coverage

blib/lib/GunghoX/FollowLinks/Rule/HTML/SelectedTags.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	2	0.0
condition	0	4	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	26	50.0

# $Id: /mirror/perl/GunghoX-FollowLinks/trunk/lib/GunghoX/FollowLinks/Rule/HTML/SelectedTags.pm 8893 2007-11-10T14:30:51.466577Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki <[e-mail]>
# All rights reserved.

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

__PACKAGE__->mk_accessors($_) for qw(tags);

sub apply
{
    my ($self, $c, $response, $url, $attrs) = @_;

    my $tags = $self->tags || [];
    my $tag = $attrs->{tag} || '';

    foreach my $want (@$tags) {
        return &GunghoX::FollowLinks::Rule::FOLLOW_ALLOW if $tag eq $want;
    }
    return &GunghoX::FollowLinks::Rule::FOLLOW_DENY;
}

1;

__END__

=head1 NAME

GunghoX::FollowLinks::Rule::HTML::SelectedTags - Follow Only On Selected Tags

=head1 SYNOPSIS

  GunghoX::FollowLinks::Rule::HTML::SelectedTags->new(
    tags => [ 'a', 'img' ]
  );

=head1 METHODS

=head2 apply($c, $response, $url, { tag => $tag, attrs => $attrs })

=cut