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
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;