view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

                [ $c->ua_is_misc ],
            );
        }
        elsif ($c->request->path_info =~ m!^/woothee$!) {
            return $c->create_response(
                200,
                [],
                [ $c->woothee->name ],
            );
        }
        return $c->create_response(404, [], []);
    }
    __PACKAGE__->load_plugins('Web::Woothee');
}

my $agent = {
    MSIE => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)',
    googlebot => join(' ',
        'Mozilla/5.0',
        '(compatible; Googlebot/2.1; +http://www.google.com/bot.html)',
    ),