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         6  
  3         80  
4 3     3   14 use warnings;
  3         6  
  3         328  
5              
6             sub strip_quote {
7 24     24 1 47 my ($self, $value) = @_;
8              
9 24 50       54 return '' unless defined $value;
10              
11 24         69 $value =~ s/^"//;
12 24         69 $value =~ s/"$//;
13              
14 24         74 return $value;
15             }
16              
17             1;
18              
19             __END__