Select Code to Download

>>>>> "Makhno" == Makhno  <mak@imakhno.freeserve.co.uk> writes:
Makhno> I'm thinking of writing a GUI Perl-syntax-aware editor, and
...
Makhno> Does anybody have any ideas on how I go about parsing perl
Makhno> syntax in such a way, before I go to a lot of potentially
Makhno> unnecessary work?

        sin / ...
        time / ...
        localtime / ...
        caller / ...
        eof / ...

        use constant FOO => 35;
        FOO / ...

        use Fcntl qw(LOCK_SH);
        LOCK_SH / ...

        sub no_args ();
        sub one_arg ($);
...
        no_args / ...
        one_arg / ...
        normal / ...

        use Random::Module qw(aaa bbb ccc);
        aaa / ...
        bbb / ...
        ccc / ...

        BEGIN {
          eval (time % 2 ? 'sub zany ();' : 'sub zany (@);');
        }
        zany / ...

        sin  / 25 ; # / ; die "this dies!";
        time / 25 ; # / ; die "this doesn't die";