view release on metacpan or  search on metacpan

lib/Amp/Util/Strings.pm  view on Meta::CPAN

    my $string = shift;
    my $opts = shift;
    if (defined $string) {
        if ($opts->{chomp}) {
            #            $string = $self->chomp($string);
            $string =~ s/\R//g;
        }
        if ($opts->{trim}) {
            $string = $self->trim($string);
        }
        $string = uri_escape($string);
    }
    return $string;
}

sub uriDecode {
    my $self = shift;
    my $string = shift;
    if (defined $string) {
        $string = uri_unescape($string);
    }
    return $string;
}

sub clean {
    my $self = shift;
    my $string = shift;
    $string =~ s/\R//g;
    $string = $self->trim($string);
    return $string;