package NetHack::Item::Role::EnchantBUC;
our $VERSION = '0.12';
use Moose::Role;
with 'NetHack::Item::Role::Enchantable';
# if we know the enchantment and BUC isn't set, then set it to uncursed
after enchantment => sub {
my $self = shift;
return if !@_;
$self->is_uncursed(1) if !$self->buc;
};
no Moose::Role;
1;