如何导出Perl包中的所有subs？

perldoc<package_name>

use Module::Info;

my $info = Module::Info->new_from_module('<package_name>');
my @subs = $info->functions;

print "Subroutines in<package_name>:\n";
foreach my $sub (@subs) {
    print "$sub\n";
}

use B::Concise;

my $file =<package_name>.pm';
my $concise = B::Concise->new();
my $subs = $concise->get_subs($file);

print "Subroutines in<package_name>:\n";
foreach my $sub (@$subs) {
    print "$sub\n";
}