File Coverage

blib/lib/HTML/RobotsMETA/Rules.pm

Criterion	Covered	Total	%
statement	19	28	67.8
branch			n/a
condition	8	18	44.4
subroutine	6	9	66.6
pod	7	7	100.0
total	40	62	64.5

# $Id: /mirror/perl/HTML-RobotsMETA/trunk/lib/HTML/RobotsMETA/Rules.pm 3528 2007-10-16T09:36:47.480863Z daisuke  $

package HTML::RobotsMETA::Rules;
use strict;
use warnings;

sub new
{
    my $class = shift;
    my %args  = @_;
    my $self  = bless { directives => \%args }, $class;
    return $self;
}

sub can_index
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{noindex} && ! $dir->{none};
}

sub can_follow
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{nofollow} && ! $dir->{none};
}

sub can_archive
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{noarchive} && ! $dir->{none};
}

sub can_serve
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{serve} && ! $dir->{none};
}

sub can_imageindex
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{noimageindex} && ! $dir->{none};
}

sub can_imageclick
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{noimageclick} && ! $dir->{none};
}

1;

__END__