Skip to content
Snippets Groups Projects
Commit 02edfcf6 authored by Kieron Taylor's avatar Kieron Taylor :angry:
Browse files

[ENSCORESW-841] - Doxygen output. Make PerlFilter ignore additional packages...

[ENSCORESW-841] - Doxygen output. Make PerlFilter ignore additional packages in a module, to prevent confusion in Compara codebase.
parent f51b0393
No related branches found
No related tags found
No related merge requests found
......@@ -159,6 +159,7 @@ sub filter {
}
my $packaged;
sub normal_parser {
my $args = $_[0];
my $self = $args->[0];
......@@ -177,7 +178,10 @@ sub normal_parser {
warn "Reached end of code: 1;\n";
}
elsif ($line =~ /^\s*package\s+(.*);/) {
$class_declaration = $1;
if ($packaged) {$state = TERMINAL} else {
$class_declaration = $1;
$packaged = 1;
}
}
elsif ($line =~/^\s*use\s/ || $line =~/^(our|my)?\s*\@ISA/ || $line =~(/^\s*.*::ISA/) ){
$state = INHERIT;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment