'INTEGER:*_incr' => sub {
my $x = $names{'*'};
my $incr = @_ > 1 ? $_[1] : 1;
$_[0]->$x($_[0]->$x()+$incr);
},
'INTEGER:*_decr' => sub {
my $x = $names{'*'};
my $decr = @_ > 1 ? $_[1] : 1;
$_[0]->$x($_[0]->$x()-$decr);
},
'INTEGER:*_zero' => sub {
my $x = $names{'*'};
$_[0]->$x(0);
},