Commit | Line | Data |
---|---|---|
664bb207 | 1 | This is a test to see if I can do not only `$self' and `method()', but |
66aff6dd GS |
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'. | |
360aca43 | 6 | |
664bb207 | 7 | Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'. |
66aff6dd GS |
8 | And I also want to make sure that newlines work like this |
9 | `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]' | |
360aca43 | 10 | |
664bb207 GS |
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}'. | |
360aca43 GS |
13 | |
14 | Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'. | |
15 | ||
e9fdc7d2 GS |
16 | And make sure that `0' works too! |
17 | ||
66aff6dd GS |
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 | ||
8a523ae0 JH |
23 | Lets make sure these work for empty ones too, like and `>>' (just to be |
24 | obnoxious) | |
25 |