t/pod/special_seqs.xr

   1     This is a test to see if I can do not only `$self' and `method()', but
   2     also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
   3     without resorting to escape sequences. If I want to refer to the
   4     right-shift operator I can do something like `$x >> 3' or even `$y >>
   5     5'.
   6
   7     Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
   8     And I also want to make sure that newlines work like this
   9     `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
  10
  11     Of course I should still be able to do all this *with* escape sequences
  12     too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
  13
  14     Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
  15
  16     And make sure that `0' works too!
  17
  18     Now, if I use << or >> as my delimiters, then I have to use whitespace.
  19     So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end
  20     up doing what you might expect since the first > will still terminate
  21     the first < seen.
  22
  23     Lets make sure these work for empty ones too, like and `>>' (just to be
  24     obnoxious)
  25