diff options
| author | ivan <ivan> | 2005-08-08 15:03:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-08-08 15:03:34 +0000 |
| commit | 7a0add6a84e1c3aa8826c98bbef70c07db5e1203 (patch) | |
| tree | eb75a9d99924bc4997266e5d4effc56b890084ae /lib/Net/XRC/Data/string.pm | |
initial import
Diffstat (limited to 'lib/Net/XRC/Data/string.pm')
| -rw-r--r-- | lib/Net/XRC/Data/string.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/Net/XRC/Data/string.pm b/lib/Net/XRC/Data/string.pm new file mode 100644 index 0000000..df27b03 --- /dev/null +++ b/lib/Net/XRC/Data/string.pm @@ -0,0 +1,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"); +} + |