Mooseでデフォルトの属性プロパティ値を定義するにはどうすればよいですか？タイトルが示すように

Question

することは、私は私のクラスでは、このような何かをできるようにしたいと思います：

use MooseX::Declare; 

class MyClass { 
    default_attribute_propeties(
     is  => 'ro', 
     lazy  => 1, 
     required => 1, 
    ); 

    has [qw(some standard props)] =>(); 

    has 'override_default_props' => (
     is  => 'rw', 
     required => 0, 
     ... 
    ); 

    ... 
} 

上書きされない限り、すべての属性の定義に適用されるいくつかのデフォルトプロパティの値を定義する、すなわち。

Answer 1

いくつかのデフォルトオプションを提供するカスタム属性宣言を書きたいと思うようです。これはMoose::Cookbook::Extending::Recipe1、例えばに覆われている：あなたのクラスで

package MyApp::Mooseish; 

use Moose(); 
use Moose::Exporter; 

Moose::Exporter->setup_import_methods(
    install  => [ qw(import unimport init_meta) ], 
    with_meta => ['has_table'], 
    also  => 'Moose', 
); 

sub has_table 
{ 
    my ($meta, $name, %config) = @_; 

    $meta->add_attribute(
     $name, 

     # overridable defaults. 
     is => 'rw', 
     isa => 'Value', # any defined non-reference; hopefully the caller 
         # passed their own type, which will override 
         # this one. 
     # other options you may wish to supply, or calculate based on 
     # other arguments passed to this function... 

     %config, 
    ); 
} 

そして：明確にするため

package MyApp::SomeObject; 

use MyApp::Moosish; 

has_table => (
    # any normal 'has' options; 
    # will override the defaults. 
); 

# remaining class definition as normal.