File Coverage

blib/lib/HTTP/UserAgentClientHints/Util.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package
2             HTTP::UserAgentClientHints::Util;
3 3     3   17 use strict;
  3         6  
  3         71  
4 3     3   12 use warnings;
  3         6  
  3         272  
5              
6             sub strip_quote {
7 24     24 1 45 my ($self, $value) = @_;
8              
9 24 50       39 return '' unless defined $value;
10              
11 24         58 $value =~ s/^"//;
12 24         55 $value =~ s/"$//;
13              
14 24         62 return $value;
15             }
16              
17             1;
18              
19             __END__