diff options
Diffstat (limited to 'lib/ManaTools/Shared/disk_backend/Part.pm')
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Part.pm | 13 |
1 files changed, 7 insertions, 6 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; } |