aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/ManaTools/Module/Disk.pm36
1 files changed, 10 insertions, 26 deletions
diff --git a/lib/ManaTools/Module/Disk.pm b/lib/ManaTools/Module/Disk.pm
index 95226583..a5228a64 100644
--- a/lib/ManaTools/Module/Disk.pm
+++ b/lib/ManaTools/Module/Disk.pm
@@ -73,10 +73,18 @@ use yui;
extends qw( ManaTools::Module );
-has '+icon' => (
- default => File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/manadisk.png'),
+has '+name' => (
+ default => 'manadisk',
+ required => 0,
+ init_arg => undef,
);
+override('_titleInitializer', sub {
+ my $self = shift;
+
+ return $self->loc->N("%s - Storage partitioning & Mounts", $self->name());
+});
+
has 'sh_gui' => (
is => 'rw',
lazy => 1,
@@ -188,30 +196,6 @@ our $VERSION = '1.0.1';
#=============================================================
-=head2 BUILD
-
-=head3 INPUT
-
- $self: this object
-
-=head3 DESCRIPTION
-
- The BUILD method is called after a Moose object is created,
- in this methods Services loads all the service information.
-
-=cut
-
-#=============================================================
-sub BUILD {
- my $self = shift;
-
- if (! $self->name) {
- $self->name ($self->loc->N("Storage partitioning & Mounts"));
- }
-}
-
-#=============================================================
-
=head2 start
=head3 INPUT