From fe3afe8de86493c674a6887581bc87b60245a407 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 28 Jan 2014 21:42:02 +0100
Subject: POD on Module

---
 lib/AdminPanel/Module.pm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

(limited to 'lib')

diff --git a/lib/AdminPanel/Module.pm b/lib/AdminPanel/Module.pm
index 1488e95..16c8259 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;
 
-- 
cgit v1.2.1