File Coverage

blib/lib/EasyDNS/DDNS/Util.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch	2	8	25.0
condition			n/a
subroutine	4	5	80.0
pod	0	3	0.0
total	21	36	58.3

package EasyDNS::DDNS::Util;

use strict;
use warnings;

sub trim {
    my ($s) = @_;
    return '' if !defined $s;
    $s =~ s/^\s+//;
    $s =~ s/\s+$//;
    return $s;
}

sub redact_basic_auth_in_url {
    my ($url) = @_;
    return '' if !defined $url;

    # Redact user:pass@ in URL authority.
    # Examples:
    #   https://user:token@host/path  -> https://user:***@host/path
    #   http://user:pass@host        -> http://user:***@host
    $url =~ s{(https?://)([^:/\@]+):([^@\s]+)\@}{$1$2:***@}ig;
    return $url;
}

sub redact_header_value {
    my ($name, $value) = @_;
    return $value if !defined $name;

    my $n = lc $name;
    return '***' if $n eq 'authorization';
    return $value;
}

1;

__END__