File Coverage

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

Criterion	Covered	Total	%
statement	28	30	93.3
branch	4	6	66.6
condition	2	3	66.6
subroutine	12	12	100.0
pod	7	7	100.0
total	53	58	91.3

package Template::Plugin::HTTP::UserAgent;
$Template::Plugin::HTTP::UserAgent::VERSION = '0.08';
# 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;         }
sub ua_string { return $_[0]->{UA}->user_agent; }

1;

__END__