aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2014-01-28 21:42:02 +0100
committerAngelo Naselli <anaselli@linux.it>2014-01-28 21:42:02 +0100
commitfe3afe8de86493c674a6887581bc87b60245a407 (patch)
tree95ad7d5766ce090d13f1d03fc37ddeb6a8f10e2a /lib/AdminPanel
parente494d4414217a0777546c393a98d44ae43472750 (diff)
downloadmanatools-fe3afe8de86493c674a6887581bc87b60245a407.tar
manatools-fe3afe8de86493c674a6887581bc87b60245a407.tar.gz
manatools-fe3afe8de86493c674a6887581bc87b60245a407.tar.bz2
manatools-fe3afe8de86493c674a6887581bc87b60245a407.tar.xz
manatools-fe3afe8de86493c674a6887581bc87b60245a407.zip
POD on Module
Diffstat (limited to 'lib/AdminPanel')
-rw-r--r--lib/AdminPanel/Module.pm46
1 files changed, 46 insertions, 0 deletions
diff --git a/lib/AdminPanel/Module.pm b/lib/AdminPanel/Module.pm
index 1488e955..16c82597 100644
--- a/lib/AdminPanel/Module.pm
+++ b/lib/AdminPanel/Module.pm
@@ -93,11 +93,42 @@ has 'button' => (
);
+#=============================================================
+
+=head2 setButton
+
+=head3 INPUT
+
+$self: this object
+$button: yui push button to be assigned to this module
+
+=head3 DESCRIPTION
+
+This method assignes a button to this module
+
+=cut
+
+#=============================================================
sub setButton {
my ($self, $button) = @_;
$self->{button} = $button;
}
+#=============================================================
+
+=head2 removeButton
+
+=head3 INPUT
+
+$self: this object
+
+=head3 DESCRIPTION
+
+This method remove the assigned button from this module
+
+=cut
+
+#=============================================================
sub removeButton {
my($self) = @_;
@@ -105,6 +136,21 @@ sub removeButton {
}
# base class launcher
+#=============================================================
+
+=head2 start
+
+=head3 INPUT
+
+$self: this object
+
+=head3 DESCRIPTION
+
+This method is the base class launcher, run external modules.
+
+=cut
+
+#=============================================================
sub start {
my $self = shift;