This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
deparse subroutine signatures
authorDavid Mitchell <davem@iabyn.com>
Fri, 22 Jul 2016 17:25:08 +0000 (18:25 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Aug 2016 19:54:41 +0000 (20:54 +0100)
commit60f638af330875e8b950f0d9f9f21a53e38c1d41
tree37022a877974feaa2d62e826891d2a83875e9c9c
parent8071973380dd6ab72594798e38d0a8eaa9d1e930
deparse subroutine signatures

If 'use feature "signatures"' is in scope, deparse subs using the

    sub foo ($a,$b) { ... }

syntax rather than

    sub foo {
        my $a = $_[0];
        my $b = $_[0];
        ...
    }

Only do this where the sequence of OP_SIGCHECK and OP_SIGELEM etc ops
make up a consistent signature. Otherwise (e.g. someone's modified
it with a parser hook), fall back to 'my $a = $_[0]' syntax.
lib/B/Deparse.pm
lib/B/Deparse.t