Re: Graph your Perl inheritance structure

[Anonymous Monk]

Nice and useful. I've a big code base which does inheritance via use base qw(blah blah), so I tweaked the regexp to handle use base and use parent like so:

...
if (/(?:(?<!\\)@(?:([[:word:]:]+)::)?ISA\s*=|(?:use\s+(?:base|parent))
+)\s*(.*)/) 
        {
            $package = $1 if defined($1);
...