summaryrefslogtreecommitdiff
path: root/t/pod/special_seqs.xr
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-03-23 21:38:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-03-23 21:38:03 +0000
commit360aca433d51a01ddd748b8606c6c288bdb2f7fc (patch)
tree0143de64029b4ab8984a0791dbffccdf5be9fd43 /t/pod/special_seqs.xr
parent0a6a0d524e3a6171ed37d842c0e1375270987314 (diff)
downloadperl-360aca433d51a01ddd748b8606c6c288bdb2f7fc.tar.gz
add Pod-Parser-1.08 (verbatim module =include tests elided owing
to size and better maintainability) p4raw-id: //depot/perl@3129
Diffstat (limited to 't/pod/special_seqs.xr')
-rw-r--r--t/pod/special_seqs.xr13
1 files changed, 13 insertions, 0 deletions
diff --git a/t/pod/special_seqs.xr b/t/pod/special_seqs.xr
new file mode 100644
index 0000000000..b6ae7fd5b6
--- /dev/null
+++ b/t/pod/special_seqs.xr
@@ -0,0 +1,13 @@
+ This is a test to see if I can do not only `$self' and
+ `method()', but also `$self->method()' and `$self->{FIELDNAME}'
+ and `{FOO=>BAR}' without resorting to escape sequences.
+
+ Now for the grand finale of `$self->method()->{FIELDNAME} =
+ {FOO=>BAR}'.
+
+ Of course I should still be able to do all this *with* escape
+ sequences too: `$self->method()' and `$self->{FIELDNAME}' and
+ `{FOO=>BAR}'.
+
+ Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
+