aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/ManaTools/Module.pm23
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/ManaTools/Module.pm b/lib/ManaTools/Module.pm
index 678b6a9a..22887009 100644
--- a/lib/ManaTools/Module.pm
+++ b/lib/ManaTools/Module.pm
@@ -179,7 +179,30 @@ sub create {
return $obj;
}
+#=============================================================
+
+=head2 BUILD
+
+=head3 INPUT
+
+ $self: this object
+
+=head3 DESCRIPTION
+ The BUILD method is called after a Moose object is created,
+ base Module class sets title and icon
+
+=cut
+
+#=============================================================
+sub BUILD {
+ my $self = shift;
+
+ ## set title
+ yui::YUI::app()->setApplicationTitle($self->name) if $self->name;
+ ## set icon
+ yui::YUI::app()->setApplicationIcon($self->icon) if $self->icon;
+}
#=============================================================