/usr/local/CPAN/NetHack-Item/NetHack/Item/Role/EnchantBUC.pm

• package NetHack::Item::Role::EnchantBUC
• EOF

package NetHack::Item::Role::EnchantBUC;
BEGIN {
  $NetHack::Item::Role::EnchantBUC::VERSION = '0.13';
}
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;