File Coverage

blib/lib/TSVRPC/Util.pm
Criterion Covered Total %
statement 6 10 60.0
branch 0 4 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 18 44.4


line stmt bran cond sub pod time code
1             package TSVRPC::Util;
2 6     6   28 use strict;
  6         12  
  6         171  
3 6     6   26 use warnings;
  6         9  
  6         679  
4              
5             sub parse_content_type {
6 0     0 0   my ($content_type) = @_;
7 0 0         if ($content_type =~ m{text/tab-separated-values(?:; colenc=([BUQ]))?}) {
8 0 0         return defined $1 ? $1 : '';
9             } else {
10 0           return undef;
11             }
12             }
13              
14             1;