Part: use class attributes

8 files changed, 47 insertions, 30 deletions

diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm
index 1e26b902..d05ff857 100644
--- a/lib/ManaTools/Shared/disk_backend/Part.pm
+++ b/lib/ManaTools/Shared/disk_backend/Part.pm
@@ -80,29 +80,30 @@ use Moose;
 
 with 'ManaTools::Shared::ActionsRole', 'ManaTools::Shared::PropertiesRole';
 
+use MooseX::ClassAttribute;
+
 use ManaTools::Shared::disk_backend::IOs;
 
 ## Class DATA
-has 'type' => (
+class_has 'type' => (
     is => 'ro',
     init_arg => undef,
-    lazy => 1,
     isa => 'Str',
     default => 'Part'
 );
-has 'in_restriction' => (
+
+class_has 'in_restriction' => (
     is => 'ro',
     init_arg => undef,
-    lazy => 1,
     isa => 'Maybe[CodeRef]',
     default => sub {
         sub { return 1; }
     }
 );
-has 'out_restriction' => (
+
+class_has 'out_restriction' => (
     is => 'ro',
     init_arg => undef,
-    lazy => 1,
     isa => 'Maybe[CodeRef]',
     default => sub {
         sub { return 1; }
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm
index 36a868d6..fa14d995 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm
@@ -244,7 +244,9 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'Btrfs'
 );
 
@@ -266,7 +268,7 @@ has 'subvolumes' => (
     default => sub { return [];},
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -281,7 +283,7 @@ has '+in_restriction' => (
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -359,7 +361,9 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'BtrfsVol'
 );
 
@@ -387,7 +391,7 @@ has 'subvolumes' => (
     default => sub { return [];},
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -404,7 +408,7 @@ has '+in_restriction' => (
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm
index 3bfe788f..9cd81c36 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm
@@ -143,17 +143,19 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'Disks'
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {return 0;};
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm
index c640f9c7..c1bc3293 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm
@@ -150,7 +150,9 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'Extfs'
 );
 
@@ -165,7 +167,7 @@ has 'uuid' => (
     }
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -180,7 +182,7 @@ has '+in_restriction' => (
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm
index 4aac7b5d..3555a609 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm
@@ -160,17 +160,19 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'Loops'
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {return 0;};
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
index 04e03b86..7403121e 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
@@ -195,7 +195,9 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'Mount'
 );
 
@@ -217,7 +219,7 @@ has 'parentmount' => (
     default => undef,
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -234,7 +236,7 @@ has '+in_restriction' => (
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {return 0;};
     }
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
index eebb1429..3b6fb081 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
@@ -186,11 +186,13 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'PartitionTable'
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -207,7 +209,7 @@ has '+in_restriction' => (
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm
index 0b4ad875..b7d6c064 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm
@@ -141,7 +141,9 @@ use Moose;
 
 extends 'ManaTools::Shared::disk_backend::Part';
 
-has '+type' => (
+use MooseX::ClassAttribute;
+
+class_has '+type' => (
     default => 'Swap'
 );
 
@@ -151,7 +153,7 @@ has 'path' => (
     required => 1
 );
 
-has '+in_restriction' => (
+class_has '+in_restriction' => (
     default => sub {
         return sub {
             my $self = shift;
@@ -166,7 +168,7 @@ has '+in_restriction' => (
     }
 );
 
-has '+out_restriction' => (
+class_has '+out_restriction' => (
     default => sub {
         return sub {return 0;};
     }