#!/usr/bin/perl
#given an arbitrary object, get a dump of all  
#the functions connected to the object. 
use CGI;

my $obj = CGI->new();

print &dump_functions( $obj );

sub dump_functions
{
    use Data::Dumper;
    use Class::Inspector;

    my ( $obj ) = @_;

    my ( $ref, $methods);

    $ref     = ref $obj;
    $methods = Class::Inspector->methods( $ref, 'full', 'public' );

    @{ $methods } = grep /$ref/, @{ $methods };

    return Dumper( $methods );
}
__END__