view release on metacpan or  search on metacpan

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

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

sub json_encode {
    my $self = shift;
    my $string = shift;
    my $opts = shift;
    my $json = JSON->new->allow_nonref->allow_blessed->utf8;
    if ($opts->{pretty}) {
        $json->pretty(1);
    }
    if ($opts->{indent}) {
        $json->indent(1);
    }
    if ($opts->{canonical}) {
        $json->canonical(1);
    }
    if (defined $string) {
        $string = $json->encode($string);
    }
    return $string;
}

sub json_decode {
    my $self = shift;
    my $string = shift;
    my $json = JSON->new->allow_nonref->allow_blessed->utf8;
    my $data;
    if (defined $string) {
        $data = $json->decode($string);
    }
    return $data;
}

sub quote {
    my $self = shift;
    my ($s) = @_;