diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-07 22:40:28 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-08 06:18:09 -0800 |
| commit | 41df74e3c36f10fc6ff6e27a5505709a5d21c1cc (patch) | |
| tree | 5df597d6dc8fa25569238e7ddbcb3facfc7eeedd /dist/B-Deparse/t/deparse.t | |
| parent | 9c56d9eaa7e203a51ca598b9b5fdbbd3533c6b38 (diff) | |
| download | perl-41df74e3c36f10fc6ff6e27a5505709a5d21c1cc.tar.gz | |
Deparse.pm: More functions that do not follow llafr
See the previous commit.
Again, whether we apply the llafr to loop exits shouldn’t be about
whether parentheses look nice, but whether the final code parses
correctly.
Diffstat (limited to 'dist/B-Deparse/t/deparse.t')
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index badf0dae6c..2361088be5 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -843,3 +843,10 @@ do({}); () = (do 'file') + time; () = (do ($1 + $2) * $3) + time; () = (do ($1 xor $2)) + time; +() = (goto 1) + 3; +() = (require 'foo') + 3; +() = (require foo) + 3; +() = (dump 1) + 3; +() = (last 1) + 3; +() = (next 1) + 3; +() = (redo 1) + 3; |