lib/Net/XRC/Data/string.pm

   1 package Net::XRC::Data::string;
   2
   3 use strict;
   4 use vars qw(@ISA);
   5 use Net::XRC::Data;
   6
   7 @ISA = qw(Net::XRC::Data);
   8
   9 sub encode {
  10   my $self = shift;
  11   my $string = $$self;
  12   $string =~ s/(["\\])/\\$1/g;
  13   qq("$string");
  14 }
  15