my $mod  = Module::Info->new_from_module( $module );

eval "require 5.6.1";  # the Module::Info 'subroutines' function requires 5.6.1+

unless ( $@ ){
    my %subs = $mod->subroutines;
    print map { Tr( td( $_ ) ) } keys %subs;
}

##</code><code>##

B::Module::Info,subs_called use failed with 16777215 saying: at
     Module/Info.pm line 422.

##</code><code>##

perl -Id:/apache/home/perldiver/www -MO=Module::Info,subroutines
    d:/Apache/usr/site/lib/HTML/TokeParser.pm 2>&1 > d:/out.txt

##</code><code>##

HTML::TokeParser::get_text at d:/Apache/usr/site/lib/HTML/TokeParser.pm from 64 to 97
HTML::TokeParser::new at d:/Apache/usr/site/lib/HTML/TokeParser.pm from 26 to 41