file.py
 +[Class]h_main
   __init__
 +[Class]h_base
   toXML
   convert
 main

##</code><code>##

#!perl

use strict;
use warnings;

package MyPkg;
sub one {
    1;
}
sub two {
    1;
}
1;

package main;

my $p = pre();
print $p . MyPkg->one;

sub pre {
    return "ONE = ";
}

##</code><code>##

file.pl
 one
 two
 pre

##</code><code>##

file.pl
 +[Class]MyPkg
   one
   two
 +[Class]main
   pre

##</code><code>##

<parser id="perl_function" displayName="Perl" ...
  ...
</parser>

##</code><code>##

<parser id="perl_function" displayName="Perl" commentExpr="(#.*?$|(__END__.*\Z))">
  <classRange mainExpr="(?&lt;=^package).*?(?=\npackage|\Z)">
    <className>
      <nameExpr expr="\s\K[^;]+"/>
    </className>
    <function mainExpr="^[\s]*(?&lt;!#)[\s]*sub[\s]+[\w]+[\s]*\(?[^\)\(]*?\)?[\n\s]*\{">
      <functionName>
        <funcNameExpr expr="(sub[\s]+)?\K[\w]+"/>
      </functionName>
    </function>
  </classRange>
  <function mainExpr="^[\s]*(?&lt;!#)[\s]*sub[\s]+[\w]+[\s]*\(?[^\)\(]*?\)?[\n\s]*\{">
    <functionName>
      <nameExpr expr="(?:sub[\s]+)?\K[\w]+"/>
    </functionName>
  </function>
</parser>