use MooseX::Declare;

role Counter (Str :$name, Int :$charges = 1) {
    has $name => (is => 'rw', isa => 'Int', default => $charges);

    method "increment_${name}" {
        $self->$name($self->$name + 1);
    }

    method "reset_${name}" {
        $self->$name(0);
    }
}

class MyGame::Weapon {
    with Counter => { name => 'enchantment', charges => 5 };
}

class MyGame::Wand {
    with Counter => { name => 'zapped', charges => 3 };
}

class MyGame::Scroll {
    with Counter => { name => 'spelled' };
}

1;