File Coverage

blib/lib/URI/icap.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package URI::icap;
2              
3 1     1   7 use strict;
  1         2  
  1         30  
4 1     1   5 use warnings;
  1         2  
  1         27  
5 1     1   4 use base qw(URI::http);
  1         3  
  1         428  
6              
7             our $VERSION = '5.21';
8              
9 5     5 1 10 sub default_port { return 1344 }
10              
11             1;
12             __END__