File Coverage

blib/lib/HTTP/UserAgentString/Sys.pm
Criterion Covered Total %
statement 5 10 50.0
branch n/a
condition n/a
subroutine 3 7 42.8
pod 0 6 0.0
total 8 23 34.7


line stmt bran cond sub pod time code
1             package HTTP::UserAgentString::Sys;
2              
3             # Superclass for OS, Robot and Browser
4              
5 4     4   22 use strict;
  4         8  
  4         681  
6              
7             sub new($) {
8 0     0 0 0 my ($pkg, $data) = @_;
9 0         0 return bless($data, $pkg);
10             }
11              
12 7     7 0 4620 sub name($) { $_[0]->{name} }
13 0     0 0 0 sub url($) { $_[0]->{url} }
14 0     0 0 0 sub company($) { $_[0]->{company} }
15 0     0 0 0 sub company_url($) { $_[0]->{company_url} }
16 3     3 0 13 sub ico($) { $_[0]->{ico} }
17              
18             1;