擴展Moose類以使內部可以使用不同的類

Question

我對Moose和OO編程相當陌生。尋找一些指導。我有以下Dir穆斯類，建立File對象的列表：

#!usr/bin/perl 
package Dir; 
use Moose; 
use Modern::Perl; 

has 'files' =>   (is => 'rw', isa => 'HashRef[File]'); 

<..> 

sub BUILD { 
    my $self = shift; 

<..> 

map { $files{$_} = File->new (path => $path . '/' . $_) } @file_names; 
$self->files (\%files); 

<..> 
} 

我想編寫一個名爲MyDir是extends上述Dir類新類。然而，而不是創建File類對象，我想用專門的對象擴展File對象：

#!usr/bin/perl 
package MyDir; 
use Moose; 
use Modern::Perl; 

has 'type' => (is => 'ro', isa => 'Str', default => ''); 
has 'files' => (is => 'rw', isa => 'HashRef[MyFile]'); 

我想穆斯可能有辦法做到這一點無需重寫BUILD子程序，但我不確定如何執行此操作。

Answer 1

我找到了一個很好的解決方案通過添加新的屬性：

has 'file_class' => (is => 'ro', isa => 'ClassName', default => 'File'); 

現在我的代碼，設置files屬性是這樣的：

map { $files{$_} = $self->file_class->new (path => $path . '/' . $_) } @file_names;