From bfbd54060e10f0f2cdfa417643f6dedee8fe0984 Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Mon, 9 May 2016 09:44:15 +0200 Subject: Modules: provide title & icon using the new Module --- lib/ManaTools/MainDisplay.pm | 26 +++++--------------------- 1 file changed, 5 insertions(+), 21 deletions(-) (limited to 'lib/ManaTools/MainDisplay.pm') diff --git a/lib/ManaTools/MainDisplay.pm b/lib/ManaTools/MainDisplay.pm index 3768f944..ecdbda55 100644 --- a/lib/ManaTools/MainDisplay.pm +++ b/lib/ManaTools/MainDisplay.pm @@ -117,30 +117,14 @@ with 'ManaTools::ConfigDirRole'; #============================================================= has '+name' => ( - is => 'ro', - isa => 'Str', default => 'mpan', + required => 0, + init_arg => 'name', ); -has '+icon' => ( - is => 'rw', - isa => 'Str', - default => File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/mageia.png'), -); - -has 'title' => ( - is => 'rw', - isa => 'Str', - init_arg => undef, - lazy => 1, - builder => '_titleInitialize', -); - -sub _titleInitialize { - my $self = shift; - - return $self->name(); -} +override('_iconInitializer', sub { + return (File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/mageia.png'), +}); has 'settings' => ( is => 'rw', -- cgit v1.2.1