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

• package NetHack::Item::Role::ChargeBUC
• EOF

package NetHack::Item::Role::ChargeBUC;
BEGIN {
  $NetHack::Item::Role::ChargeBUC::VERSION = '0.13';
}
use Moose::Role;

with 'NetHack::Item::Role::Chargeable';

# if we know the charges and BUC isn't set, then set it to uncursed
after charges => sub {
    my $self = shift;
    return if !@_;

    $self->is_uncursed(1) if !$self->buc;
};

no Moose::Role;

1;