diff options
author | Maarten Vanraes <alien@mageia.org> | 2016-02-26 22:42:41 +0100 |
---|---|---|
committer | Maarten Vanraes <alien@mageia.org> | 2016-05-14 09:25:24 +0200 |
commit | b1073ffa180f37b8dbb757b1b0eb4b952e652b21 (patch) | |
tree | 0392ff55db5f4ec70bf251076b6dc6e887e69d2e | |
parent | d9b9616a05b26f4489711e3af6ffc3bc0bac7c76 (diff) | |
download | manatools-b1073ffa180f37b8dbb757b1b0eb4b952e652b21.tar manatools-b1073ffa180f37b8dbb757b1b0eb4b952e652b21.tar.gz manatools-b1073ffa180f37b8dbb757b1b0eb4b952e652b21.tar.bz2 manatools-b1073ffa180f37b8dbb757b1b0eb4b952e652b21.tar.xz manatools-b1073ffa180f37b8dbb757b1b0eb4b952e652b21.zip |
Part: use class attributes
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Part.pm | 13 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm | 16 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm | 8 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm | 8 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm | 8 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm | 8 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm | 8 | ||||
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm | 8 |
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;}; } |