lib/Net/XRC/Data/string.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Net::XRC::Data::string;

use strict;
use vars qw(@ISA);
use Net::XRC::Data;

@ISA = qw(Net::XRC::Data);

sub encode {
  my $self = shift;
  my $string = $$self;
  $string =~ s/(["\\])/\\$1/g;
  qq("$string");
}