File Coverage

blib/lib/JavaScript/Toolbox.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition 0 3 0.0
subroutine 3 4 75.0
pod 0 1 0.0
total 12 23 52.1


line stmt bran cond sub pod time code
1             package JavaScript::Toolbox;
2            
3             require v5.6;
4            
5 1     1   990 use strict;
  1         2  
  1         44  
6 1     1   5 use warnings;
  1         2  
  1         37  
7            
8 1     1   1229 use HTTP::BrowserDetect;
  1         15344  
  1         177  
9            
10            
11             our $VERSION = '0.01';
12            
13             sub new {
14 0     0 0   my ($proto, %args) = @_;
15            
16 0   0       my $class = ref($proto) || $proto;
17 0           my $self = {};
18            
19 0           $self->{BROWSER} = new HTTP::BrowserDetect($ENV{'HTTP_USER_AGENT'});
20            
21 0           bless ($self, $class);
22 0           return $self;
23             }
24            
25            
26             1;
27             __END__