sub new {
    my ($class) = @_;
    my $self = bless {}, $class;
    ...