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 /lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm | |
| 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
Diffstat (limited to 'lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm')
| -rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm | 16 |
1 files changed, 10 insertions, 6 deletions
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; |