Your skill will accomplish what the force of many cannot |
|
PerlMonks |
Re: Graph your Perl inheritance structureby Hofmator (Curate) |
on Jun 14, 2001 at 13:58 UTC ( [id://88343]=note: print w/replies, xml ) | Need Help?? |
Very neat program bikeNomad. I spotted some minor bugs/optimisations ... I must remark that that was no thorough testing, so I have probably left some more things to discover for other ;-)
typo ... otherwise there is an infinite loop with the l-option
I added a negative look-behind at the beginning to not allow a backslashed '@' in front of the ISA - so now even if run on the sourcecode itself (not that this is very sensible :) it produces no errors. Furthermore I removed the '\s*' at the end, this was unnecessary as everything is ate up anyway by the (greedy) '.*' .
The reason for creating the eval-error can be in any of the lines read in, not only in the last. Apart from that the error handling prints now always only the part after the equal sign. -- Hofmator
In Section
Code Catacombs
|
|