The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

NetHack::Inventory::Equipment - the player's equipment

VERSION

version 0.21

SYNOPSIS

    use NetHack::ItemPool;
    my $pool = NetHack::ItemPool->new;
    my $excalibur = $pool->new_item("the +3 Excalibur (weapon in hand)");
    is($pool->inventory->weapon, $excalibur);

    my $grayswandir = $pool->new_item("the +7 Grayswandir (weapon in hand)");
    is($pool->inventory->weapon, $grayswandir);

DESCRIPTION

under_cursed SLOT

Returns true if the slot is inaccessible because it is covered by at least one cursed item.

blockers SLOT

Returns a list of (slot,item) pairs for items that cover the slot and have to be removed to access it, outermost first; or the item for the outermost blocker in scalar context.

slots_inside_out

Returns a list of all slots, ordered such that changing a slot need not affect any slot earlier in the list. Right ring comes before left ring.