Yet Another CPAN Grep

FWS-V2 ( N/NA/NATELEWIS/FWS-V2-1.13091122.tar.gz, NATELEWIS, 2013; MetaCPAN )

FWS-V2/lib/FWS/V2/Safety.pm ( view source; MetaCPAN )

/_/sg;
    $incomingText =~ s/^\s+//;
    return $incomingText;
}


=head2 safeJSON

Replace any thing harmful to an JSON node that could cause it to fail.  It will escape stuff like quotes and such.

This "Can not" be in json';
    my $safeSillyNode = $fws->safeJSON( $sillyNode );
    print 'Safe JSON: '.$sillyNode;

=cut


sub safeJSON {
    my ( $self, $incomingText ) = @_;
    $incomingText =~