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) = @_;

script/dash  view on Meta::CPAN

        "retried"  => undef,
        "retries"  => 0,
        "started"  => "2021-05-03T14:45:33.66996Z",
        "state"    => "finished",
        "task"     => "python_task",
        "time"     => "2021-05-03T15:11:38.46974Z",
        "worker"   => 57
    };
    my $enable = 1;
    my $json = JSON->new->allow_nonref;
    $json = $json->utf8([ $enable ]);
    my $json_txt = $json->encode($hash);
    $json_txt =~ s/\\n/<br\/>/g;
    return $json_txt;
}