I use this tool occasionally at work, but have a look at generate UML from Perl it's old, but might be helpful -- or at the least just another option.