File Coverage

lib/Plack/Middleware/BotDetector.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch	3	4	75.0
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	13	14	92.8

package Plack::Middleware::BotDetector;
# ABSTRACT: Plack middleware to identify bots and spiders

# these are useful, but not useful enough for their speed/memory cost here
# use strict;
# use warnings;
# use Plack::Util::Accessor 'bot_regex';

use parent 'Plack::Middleware';

sub call
{
    # no need to copy these just to put names on them
    # my ($self, $env) = @_;

    if (my $user_agent = $_[1]->{HTTP_USER_AGENT})
    {
        my $bot_regex = $_[0]->{bot_regex};
        $_[1]->{'BotDetector.looks-like-bot'}++ if $user_agent =~ qr/$bot_regex/;
    }

    return $_[0]->app->( $_[1] );
}


1;

__END__