From ef39395580a5d307c6f92a9619008c648426978a Mon Sep 17 00:00:00 2001
From: Akkadius <akkadius1@gmail.com>
Date: Sun, 1 Jul 2018 19:56:11 -0500
Subject: [PATCH] Add Doors to perl-doc-parser.pl

---
 utils/scripts/perl-doc-parser.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/utils/scripts/perl-doc-parser.pl b/utils/scripts/perl-doc-parser.pl
index 80f72982c..98baf0b73 100755
--- a/utils/scripts/perl-doc-parser.pl
+++ b/utils/scripts/perl-doc-parser.pl
@@ -6,6 +6,7 @@ sub usage() {
 	print "   --client     - Prints methods for just client class methods\n";
 	print "   --mob        - Prints methods for just mob class methods\n";
 	print "   --entity     - Prints methods for just entity class methods\n";
+	print "   --door       - Prints methods for just door class methods\n";
 	print "   --corpse     - Prints methods for just corpse class methods\n";
 	print "   --all        - Prints methods for all classes\n";
 	exit(1);
@@ -47,7 +48,7 @@ for my $file (@files) {
 		chomp;
 		$line = $_;
 
-		if ($line=~/Client::|Mob::|Corpse::|EntityList::/i && $line=~/_croak/i) {
+		if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::/i && $line=~/_croak/i) {
 
 			#::: Client export
 			if ($export=~/all|client/i) {
@@ -73,6 +74,12 @@ for my $file (@files) {
 				$object_prefix = "\$entity_list->";
 			}
 
+			#::: Doors export
+			if ($export=~/all|door/i) {
+				$split_key = "Doors::";
+				$object_prefix = "\$door->";
+			}
+
 			#::: Split on croak usage
 			@data  = split($split_key, $line);
 			$usage = trim($data[1]);