File Coverage

blib/lib/HTTP/RobotsTag/Rules.pm

Criterion	Covered	Total	%
statement	18	28	64.2
branch	1	2	50.0
condition	1	12	8.3
subroutine	5	8	62.5
pod	6	6	100.0
total	31	56	55.3

# $Id: /mirror/perl/HTTP-RobotsTag/trunk/lib/HTTP/RobotsTag/Rules.pm 31673 2007-12-09T23:59:12.668743Z daisuke  $

package HTTP::RobotsTag::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_snippet
{
    my $self = shift;
    my $dir  = $self->{directives};
    return ! $dir->{nosnippet} && ! $dir->{none};
}

sub is_available
{
    my $self = shift;
    my $dt   = shift;

    my $limit = $self->{directives}->{unavailable_after};
    if ($limit) {
        return $dt->compare($limit) <= 0;
    }
    return 1;
}

1;

__END__