#!/usr/bin/perl -l

use strict;
use warnings;
use Devel::Symdump;

my $dump = Devel::Symdump->new('Foo');

print for $dump->functions;

package Foo;
sub new { bless {}, shift }
sub foo {}
sub bar {}
sub baz {}
sub qux {}