diff options
Diffstat (limited to 't/pod/special_seqs.xr')
| -rw-r--r-- | t/pod/special_seqs.xr | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/t/pod/special_seqs.xr b/t/pod/special_seqs.xr index fc06593d9d..a07f4cf417 100644 --- a/t/pod/special_seqs.xr +++ b/t/pod/special_seqs.xr @@ -1,8 +1,12 @@ 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. + also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar' + without resorting to escape sequences. If I want to refer to the + right-shift operator I can do something like `$x >> 3' or even `$y >> + 5'. Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'. + And I also want to make sure that newlines work like this + `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]' Of course I should still be able to do all this *with* escape sequences too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'. @@ -11,3 +15,8 @@ And make sure that `0' works too! + Now, if I use << or >> as my delimiters, then I have to use whitespace. + So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end + up doing what you might expect since the first > will still terminate + the first < seen. + |