From 39273e5b66c655990023e8d94cd4305f2efff446 Mon Sep 17 00:00:00 2001
From: Logan <xackery@gmail.com>
Date: Sat, 13 Jan 2018 20:50:24 -0800
Subject: [PATCH] Created Perl Corpse (markdown)

---
 Perl-Corpse.md | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 Perl-Corpse.md

diff --git a/Perl-Corpse.md b/Perl-Corpse.md
new file mode 100644
index 0000000..da1b873
--- /dev/null
+++ b/Perl-Corpse.md
@@ -0,0 +1,31 @@
+```perl
+void Corpse::GetCharID()
+void Corpse::GetDecayTime()
+void Corpse::Lock()
+void Corpse::UnLock()
+void Corpse::IsLocked()
+void Corpse::ResetLooter()
+void Corpse::GetDBID()
+void Corpse::GetOwnerName()
+void Corpse::SetDecayTimer( decaytime)
+void Corpse::IsEmpty()
+void Corpse::AddItem( itemnum, int charges,  slot)
+void Corpse::GetWornItem( equipSlot)
+void Corpse::RemoveItem( lootslot)
+void Corpse::SetCash( in_copper,  in_silver,  in_gold,  in_platinum)
+void Corpse::RemoveCash()
+void Corpse::CountItems()
+void Corpse::Delete()
+void Corpse::GetCopper()
+void Corpse::GetSilver()
+void Corpse::GetGold()
+void Corpse::GetPlatinum()
+void Corpse::Summon( client,  spell)
+void Corpse::CastRezz( spellid,  Caster)
+void Corpse::CompleteRezz()
+void Corpse::CanMobLoot( charid)
+void Corpse::AllowMobLoot( them,  slot)
+void Corpse::AddLooter( who)
+void Corpse::IsRezzed()
+
+```
\ No newline at end of file