hydra/src/lib/Hydra/Helper/Escape.pm

package Hydra::Helper::Escape;

use strict;
use base qw(Exporter);
use Hydra::Helper::AttributeSet;

our @EXPORT = qw(escapeString escapeAttributePath);

sub escapeString {
    my ($s) = @_;
    $s =~ s|\\|\\\\|g;
    $s =~ s|\"|\\\"|g;
    $s =~ s|\$|\\\$|g;
    return "\"" . $s . "\"";
}

sub escapeAttributePath {
    my ($s) = @_;

    return join(".", map( { escapeString($_) } Hydra::Helper::AttributeSet::splitPath($s)));
}