File Coverage

blib/lib/Template/Plugin/HTTP/UserAgent.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	4	6	66.6
condition	2	3	66.6
subroutine	11	11	100.0
pod	6	6	100.0
total	50	55	90.9

package Template::Plugin::HTTP::UserAgent;
$Template::Plugin::HTTP::UserAgent::VERSION = '0.07';
# ABSTRACT: Template plugin for parsing HTTP User-Agent string

use 5.006;
use strict;
use warnings;
use parent 'Template::Plugin';
use HTML::ParseBrowser;

sub new
{
    my $class   = shift;
    my $context = shift;
    my $ua;

    if (@_ == 0 && !exists($ENV{HTTP_USER_AGENT})) {
        return $class->error('No User-Agent string given');
    }

    $ua = HTML::ParseBrowser->new(@_ > 0 ? shift : $ENV{HTTP_USER_AGENT});

    if (!defined($ua)) {
        return $class->error("Failed to instantiate HTML::ParseBrowser");
    }

    bless {
        UA => $ua,
    }, $class;
}

sub name    { return $_[0]->{UA}->name;  }
sub version { return $_[0]->{UA}->v;     }
sub major   { return $_[0]->{UA}->major; }
sub minor   { return $_[0]->{UA}->minor; }
sub os      { return $_[0]->{UA}->os;    }

1;

__END__