diff options
| -rw-r--r-- | lib/ManaTools/Module.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/ManaTools/Module.pm b/lib/ManaTools/Module.pm index 678b6a9..2288700 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; +} #============================================================= |