File Coverage

lib/Rex/Helper/URI.pm
Criterion Covered Total %
statement 5 11 45.4
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 1 0.0
total 7 16 43.7


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Helper::URI;
6              
7 1     1   14 use v5.12.5;
  1         4  
8 1     1   6 use warnings;
  1         2  
  1         202  
9              
10             our $VERSION = '1.14.3'; # VERSION
11              
12             sub encode {
13 0     0 0   my ($part) = @_;
14 0           $part =~ s/([^\w\-\.\@])/_encode_char($1)/eg;
  0            
15 0           return $part;
16             }
17              
18             sub _encode_char {
19 0     0     my ($char) = @_;
20 0           return "%" . sprintf "%lx", ord($char);
21             }
22              
23             1;