sub increment {
    my $self = shift;
    &add($self, number => 1);
}