Quantcast

Quiet compiler.pl warnings.

Johnny C. Lam [07-13-14 - 11:30]
Quiet compiler.pl warnings.

git-svn-id: svn://svn.curseforge.net/wow/ovale/mainline/trunk@1530 d5049fe3-3747-40f7-a4b5-f36d6801af5f
Filename
compiler.pl
diff --git a/compiler.pl b/compiler.pl
index f7c5257..8d1e3e4 100644
--- a/compiler.pl
+++ b/compiler.pl
@@ -25,6 +25,7 @@
 =cut

 $m{"AceAddon-3.0"}{GetModule} = true;
+$m{"AceAddon-3.0"}{GetName} = true;
 $m{"AceAddon-3.0"}{NewModule} = true;

 $m{AceConfig}{RegisterOptionsTable} = true;
@@ -48,8 +49,12 @@ $m{AceGUI}{RegisterWidgetType} = true;

 $m{AceLocale}{NewLocale} = true;

+$m{"AceSerializer-3.0"}{Deserialize} = true;
+$m{"AceSerializer-3.0"}{Serialize} = true;
+
 $m{"AceTimer-3.0"}{CancelTimer} = true;
 $m{"AceTimer-3.0"}{ScheduleRepeatingTimer} = true;
+$m{"AceTimer-3.0"}{ScheduleTimer} = true;

 $m{ActionButtonTemplate}{CreateFontString} = true;
 $m{ActionButtonTemplate}{EnableMouse} = true;
@@ -188,6 +193,11 @@ sub ParseDirectory
 				my $parent = $1;
 				my $mixins = $2;
 				$sp{$parent}{$class} = true;
+				my $factory = "AceAddon-3.0";
+				for my $method (keys %{$m{$factory}})
+				{
+					$m{$class}{$method} = $m{$factory}{$method}
+				}
 				while ($mixins =~ m/"([^",]+)"/g)
 				{
 					my $parent = $1;