From b1073ffa180f37b8dbb757b1b0eb4b952e652b21 Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Fri, 26 Feb 2016 22:42:41 +0100 Subject: Part: use class attributes --- lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm') 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; -- cgit v1.2.1