Help for this page

Select Code to Download

Select or download this

sub readPackage
{
...
        print "$1 $2;\n\n";
    }
}

Select or download this

    my @procedures = 
        ( $file =~
        m/^[^\n]*(FUNCTION|PROCEDURE)(.*?)IS/msgi )