File Coverage

blib/lib/CGI/Application/Plugin/BrowserDetect.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 2 3 66.6
subroutine 5 5 100.0
pod 1 1 100.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package CGI::Application::Plugin::BrowserDetect;
2              
3 1     1   27695 use Exporter 'import';
  1         2  
  1         35  
4 1     1   1237 use HTTP::BrowserDetect ();
  1         16964  
  1         35  
5              
6 1     1   98 use vars qw($VERSION @EXPORT);
  1         8  
  1         84  
7 1     1   6 use strict;
  1         2  
  1         148  
8              
9             @EXPORT = qw(browser);
10             $VERSION = '1.00';
11              
12              
13             sub browser
14             {
15 2     2 1 1089 my $self = shift;
16              
17 2   66     18 $self->{__CAP_BROWSERDETECT_OBJ} ||= HTTP::BrowserDetect->new();
18              
19 2         33 return $self->{__CAP_BROWSERDETECT_OBJ};
20             }
21              
22             1;
23             __END__