是否有可能获得特定Perl类的所有有效方法？

我试图操纵类的符号表并获取其所有方法.我发现我可以通过$obj-> can($method)从非子程序中分离出子程序,但这并不能完全符合我的想法.

以下返回：

subroutine,Property,croak,Group,confess,carp,File

但是,子程序不是一个方法,(只是一个子程序),并且croak,confess和carp都被导入到我的包中.

我真正想要打印的是：

Property,File

但我会接受：

subroutine,File

以下是我的计划：

#! /usr/bin/env perl

use strict;
use warnings;
use feature qw(say);

my $sections = Section_group->new;
say join ",",$sections->Sections;

package Section_group;
use Carp;

sub new     {
    return bless {},shift;
}

sub Add {
    my $self                = shift;
    my $section             = shift;
}

sub Sections {
    my $self                = shift;

    my @sections;
    for my $symbol ( keys %Section_group:: ) {
        next if $symbol eq "new";   # This is a constructor
        next if $symbol eq "Add";   # Not interested in this method
        next if $symbol eq "Sections";      # This is it's own method
        push @sections,$symbol if $self->can($symbol);
    }

    return wantarray ? @sections : @sections;
}

sub subroutine {
    my $param1              = shift;
    my $param2              = shift;
}

sub Group {
    my $self                = shift;
    my $section             = shift;
}

sub File {
    my $self                = shift;
    my $section             = shift;
}

sub Property {
    my $self                = shift;
    my $section             = shift;
}