| 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 | |