diff options
author | Angelo Naselli <anaselli@linux.it> | 2015-07-17 09:56:43 +0200 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2015-07-17 09:56:43 +0200 |
commit | 78ed12063bf290ffea513c76f0aa000810d0f93c (patch) | |
tree | faef418ffa069e2f5faa3b8f40e40da34fbe5d6d /extras | |
parent | 297d8b15f065ce9555c6ca387d11d26168fd292f (diff) | |
download | manatools-78ed12063bf290ffea513c76f0aa000810d0f93c.tar manatools-78ed12063bf290ffea513c76f0aa000810d0f93c.tar.gz manatools-78ed12063bf290ffea513c76f0aa000810d0f93c.tar.bz2 manatools-78ed12063bf290ffea513c76f0aa000810d0f93c.tar.xz manatools-78ed12063bf290ffea513c76f0aa000810d0f93c.zip |
Updated
Diffstat (limited to 'extras')
-rw-r--r-- | extras/ModuleTemplate.pm | 101 | ||||
-rwxr-xr-x | extras/mana_mt | 35 |
2 files changed, 0 insertions, 136 deletions
diff --git a/extras/ModuleTemplate.pm b/extras/ModuleTemplate.pm deleted file mode 100644 index 19a25146..00000000 --- a/extras/ModuleTemplate.pm +++ /dev/null @@ -1,101 +0,0 @@ -# vim: set et ts=4 sw=4: -#***************************************************************************** -# -# Copyright (c) 2015 Angelo Naselli <anaselli@linux.it> -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License version 2, as -# published by the Free Software Foundation. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -#***************************************************************************** - -# Use the right name space simplified for testing -#package ManaTools::Module::ModuleTemplate; -package ModuleTemplate; - -use Moose; - -use yui; -use File::ShareDir ':ALL'; - -use ManaTools::Shared; -use ManaTools::Shared::Locales; -use ManaTools::Shared::GUI; - -extends qw( ManaTools::Module ); - - -#uncomment this and set the right icon -#has '+icon' => ( -# default => File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/ModuleTemplate.png'), -#); - -has '+name' => ( - lazy => 1, - builder => '_nameInitializer', -); - -sub _nameInitializer { - my $self = shift; - - return ($self->loc->N("Module template tools")); -} - - -=head1 VERSION - -Version 0.0.1 - -=cut - -our $VERSION = '0.0.1'; - -# sh_gui to use Shared/GUI object -has 'sh_gui' => ( - is => 'rw', - init_arg => undef, - builder => '_SharedUGUIInitialize' -); - -sub _SharedUGUIInitialize { - my $self = shift(); - - $self->sh_gui(ManaTools::Shared::GUI->new() ); -} - -#============================================================= - -=head2 start - -=head3 INPUT - - $self: this object - -=head3 DESCRIPTION - - This method extends Module::start and is invoked to - start host manager - -=cut - -#============================================================= -sub start { - my $self = shift; - - $self->sh_gui->msgBox({ - text => $self->loc->N("Hello world, I am the beautiful module template") - }); - -}; - - -1; diff --git a/extras/mana_mt b/extras/mana_mt deleted file mode 100755 index baeac122..00000000 --- a/extras/mana_mt +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl -# vim: set et ts=4 sw=4: -# Copyright 2015 Angelo Naselli -# -# This file is part of manatools -# and it is a script to test the module template -# -# mana_mt is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation, either version 2 of the License, or -# (at your option) any later version. -# -# mana_mt is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with ManaTools. If not, see <http://www.gnu.org/licenses/>. - -#Run as "perl -I$PWD mana_mt" to find the module here - -# Use the right name space simplified for testing -#use ManaTools::Module::ModuleTemplate; -use ModuleTemplate; - -use yui; - - -my $mt = ModuleTemplate->new({ -}); - -$mt->start(); - -1; |