如何在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.