http://www.perlmonks.org?node_id=602036


in reply to How can I find the names of dynamically created subroutines?

Rather than importing all those constant subs and peeking at the symbol table, you could import the constants into a conventional hash instead: 
use Win32::OLE::Const;

my $ps = Win32::OLE::Const->Load( 'Adobe Photoshop' );
for my $key ( keys %{ $ps } )
{
    print "$key => $ps->{ $key }\n";
}

[download]

Replies are listed 'Best First'.
Re^2: How can I find the names of dynamically created subroutines?
by Cap'n Steve (Friar) on Feb 25, 2007 at 23:35 UTC
    Well I guess that would be easier. I didn't even notice that before, but I think I'll switch to using that so I don't have to do "no strict 'subs';" anymore.
[reply]

In Section Seekers of Perl Wisdom