Added commandline attribute to Module

2 files changed, 27 insertions, 0 deletions

diff --git a/Changes b/Changes
index 9e2641e8..c1f2afb2 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+	- Added CommandLine attribute to Module, to make it available
+		for all the GUI modules.
 	- Added CommandLine module to manage common CL options
 	- Added event_timeout rw attribute to GUI::Dialog to allow
 		manage $yui::YEvent::TimeoutEvent
diff --git a/lib/ManaTools/Module.pm b/lib/ManaTools/Module.pm
index a53b97ea..bf7eeb60 100644
--- a/lib/ManaTools/Module.pm
+++ b/lib/ManaTools/Module.pm
@@ -26,6 +26,7 @@ use Moose;
 use ManaTools::Shared;
 use ManaTools::Shared::Locales;
 use ManaTools::Shared::Logging;
+use ManaTools::Shared::GUI::CommandLine;
 
 =head1 VERSION
 
@@ -147,6 +148,30 @@ sub _loggerInitialize{
     return ManaTools::Shared::Logging->new(ident => $self->name);
 }
 
+
+#=============================================================
+
+=head2 commandline
+
+    commandline attribute defines the given command line, if
+    --help is passed help message is shown and the module is not
+    loaded.
+    See ManaTools::Shared::GUI::CommandLine for details and usage.
+
+=cut
+
+#=============================================================
+has 'commandline' => (
+    is => 'ro',
+    isa => 'ManaTools::Shared::GUI::CommandLine',
+    init_arg => undef,
+    default => sub {
+        return ManaTools::Shared::GUI::CommandLine->new_with_options();
+    }
+);
+
+
+
 #=============================================================
 
 =head1 SUBROUTINES/METHODS