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   20 use strict;
  3         7  
  3         82  
4 3     3   13 use warnings;
  3         7  
  3         327  
5              
6             sub strip_quote {
7 24     24 1 50 my ($self, $value) = @_;
8              
9 24 50       53 return '' unless defined $value;
10              
11 24         72 $value =~ s/^"//;
12 24         70 $value =~ s/"$//;
13              
14 24         75 return $value;
15             }
16              
17             1;
18              
19             __END__