From d4a8c3ba7071b12bfd6c01fb05c3ab9f1e06ab59 Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Sun, 7 Aug 2016 17:11:06 +0200
Subject: Part: have a level for it to be hidden if too complex

---
 lib/ManaTools/Shared/disk_backend/Part.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/ManaTools/Shared')

diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm
index 7c39d201..854d97ba 100644
--- a/lib/ManaTools/Shared/disk_backend/Part.pm
+++ b/lib/ManaTools/Shared/disk_backend/Part.pm
@@ -99,6 +99,8 @@ with 'ManaTools::Shared::ActionsRole', 'ManaTools::Shared::PropertiesRole';
 use MooseX::ClassAttribute;
 use Moose::Util::TypeConstraints qw/subtype as where/;
 
+use ManaTools::Shared::UserLevel;
+
 ## Class DATA
 
 subtype 'PartState'
@@ -140,6 +142,13 @@ class_has 'order' => (
     default => undef,
 );
 
+class_has 'level' => (
+    is => 'ro',
+    init_arg => undef,
+    isa => 'LevelType',
+    default => ManaTools::Shared::UserLevel->beginnerLevel,
+);
+
 ## Object Variables
 has 'loaded' => (
     is => 'rw',
-- 
cgit v1.2.1