sub increment { my $self = shift; $self->SomeData::add(number => 1); }