在perl中声明多个类的更简洁的方法

package MyModule;

# 定义类A
package A;
sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub method_a {
    # 类A的方法实现
}

# 定义类B
package B;
sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub method_b {
    # 类B的方法实现
}

1;  # 模块文件必须以"1;"结尾

use MyModule;

# 创建类A的对象
my $obj_a = A->new();
$obj_a->method_a();

# 创建类B的对象
my $obj_b = B->new();
$obj_b->method_b();