如何防止在调用new时设置Perl Moose只读属性？
在Perl中，Moose是一个用于创建面向对象的类和对象的库。要在调用new时设置只读属性，可以使用Moose::Util::TypeConstraints模块中的enum函数。
以下是一个示例代码：
package MyClass;
use Moose;
use Moose::Util::TypeConstraints;
enum 'MyEnum' => qw(value1 value2 value3);
has 'my_attribute' => (
is => 'ro',
isa => 'MyEnum',
required => 1,
);
__PACKAGE__->meta->make_immutable;在这个示例中，我们定义了一个名为MyClass的类，并使用enum函数定义了一个名为MyEnum的枚举类型。my_attribute属性被定义为只读，并且其类型为MyEnum。
在调用new方法创建对象时，必须传递my_attribute参数，并且其值必须是MyEnum中定义的枚举值之一。
my $obj = MyClass->new(my_attribute => 'value1');这样，在调用new方法创建对象时，my_attribute属性就会被设置为只读，无法在对象创建后更改。
推荐的腾讯云相关产品和产品介绍链接地址：
相关·内容
3回答
我目前正在使用"Moose“包开始使用Perl OOP。
编译器抱怨它“无法修改Parser.pm第16行的非lvalue子例程调用”。
我不太明白为什么我不能分配一个新的对象。我想有一种更好或更有效的方法来对Moose执行可选参数？
#!/usr/bin/perl -w
package Parser;
use Moose;
require URLSpan;
require WWW::Mechanize;
has 'urlspan' => (is => 'rw', isa => 'URLSpan', r
浏览 0提问于2009-02-24得票数 8
回答已采纳
我刚开始学习Moose，我创建了一个非常基本的类。这是我的代码：
Person.pm
package Person;
use Moose;
has fname => (
is => 'rw',
isa => 'Str',
reader => 'getFirstName',
);
has lname => (
is => 'rw',
isa => 'Str',
reader => 'getLastName',
write
浏览 2提问于2013-09-26得票数 2
回答已采纳
我正在尝试将一个属性的写入器方法的引用传递给另一个类方法。由于执行了print语句，显然调用了setter方法。但是，会出现以下错误：
Attribute (dir) is required, so cannot be set to undef at Test.pm line 51
Test::_validateDir('Test=HASH(0x2270be0)', 'CODE(0x22a90f8)') called at test.pm line 37
Test::BUILD('test_moose=HASH(0x2270be0)', '
浏览 1提问于2012-05-12得票数 2
回答已采纳
我是新来的驼鹿。到目前为止，我们的环境一直在Perl 5.8.2上，它不支持Moose。
我正在研究一些示例，我认为属性上的"required => 1“设置会很方便，但是当我尝试使用该选项时，返回的错误消息并不是真正可用的。
下面是一个例子：
cat.pl：
#!/usr/bin/perl
{
package Cat;
use Moose;
use Modern::Perl;
has 'name' => (
is => 'ro',
required => 1,
浏览 2提问于2011-04-20得票数 8
回答已采纳
Moose有获得类方法属性的方法吗。我从前面的问题中了解到，一些独立的模块(如Sub::Talisman )可以获得模块属性。
如果我在下面运行代码，就会得到错误“无效代码属性: Public at .”
#============================
package BaseClass;
use Moose;
#============================
package SubClass;
use Moose;
extends qw(BaseClass);
sub greet : Public {
my $self = shift;
print
浏览 0提问于2014-03-02得票数 1
回答已采纳
我正在看Moose的配方，但我仍然不能看到我是否可以使用它创建私有变量和函数？有可能吗？如果是，如何使用Moose创建它们？
浏览 0提问于2011-04-13得票数 6
回答已采纳
a方法在A和A::B中都定义了。
C是从A派生的，并使用A::B。
问题1：为什么A::B->a覆盖A->a
$ perl x.pl
b
问题2：如果我们将sub a {'c'}添加到C中，为什么A::B->a不覆盖C->a
A.pm：基类
package A;
use Moose;
sub a {
return 'a';
}
no Moose;
1;
A/B.pm：一个角色
package A::B;
use Moose::Role;
sub a {
return 'b';
}
1;
C.pm：从A派生
浏览 1提问于2018-01-30得票数 1
回答已采纳
3回答
我正在使用Moose对象，但我需要为那些只需完成一次且与对象无关的事情声明静态成员。
你有什么想法或例子吗？
谢谢
多坦。
浏览 4提问于2011-03-02得票数 5
我对Perl还是个新手。我尝试以以下方式定义/使用一个类：
package A::B::C;
use strict;
use warnings;
use Moose;
use aliased 'A::B::D';
has 'attribute' => (isa => 'ArrayRef[D]', is => 'ro', required => 1);
创建对象时：
use aliased 'A::B::C';
use aliased 'A::B::D';
my $aref =
浏览 2提问于2017-07-11得票数 1
1回答
驼鹿属性初始化
、、
在使用Moose时，对某些属性进行自定义初始化的典型方法是什么？
例如，假设我将两个字符串格式的日期作为类的输入：
has startdate => (is => 'ro', isa => 'Str', required => 1);
has enddate => (is => 'ro', isa => 'Str');
这些日期以字符串的形式出现，但我需要它们以特定的日期格式(ISO8601)格式化，如果没有Moose，我只会用new()初始化它们，但我不确定是否使用Moose。
浏览 2提问于2014-02-28得票数 6
回答已采纳
1回答
我现在想知道什么是更好的模式来做我需要的事情。我试着把这个问题减少到最低限度，让我一步一步地解释。
我有一个接口角色，比如：
{
package Likeable;
use Moose::Role;
requires 'likers';
requires 'do_like';
}
在此之后，我需要两个抽象角色来半实现前面的接口(在本例中，它们实现所有接口)：
{
package Likeable::OnSelf;
use Moose::Role;
with 'Likeable';
浏览 2提问于2012-08-24得票数 1
我想定义一个具有Class属性和构建器的角色。不管我试过什么都失败了。我找到了两个解决办法：
不是使用class属性，而是使用普通属性。这在我的情况下是有问题的，因为我想修改我的实际代码中的属性(对于所有实例)。
将构建器放入类中(而不是角色)。这也是有问题的，因为它意味着修改所有使用此角色的类。
下面是一个很小的例子：
package MyRole;
use Moose::Role;
use MooseX::ClassAttribute;
sub _build_value {
return "in MyRole";
}
class_has '
浏览 1提问于2016-01-19得票数 0
回答已采纳
现在有：
has 'id' => (
is => 'rw',
isa => 'Str',
default => sub { "id" . int(rand(1000))+1 }
);
工作正常，以下内容：
PKG->new(id => 'some'); #the id is "some"
PKG->new() #the id is #id<random_number>
在下一个场景中：
my $v
浏览 3提问于2014-03-17得票数 4
回答已采纳
2回答
我在写剧本来帮助我精通驼鹿。我有以下代码：
package Dir;
use Moose;
use Modern::Perl;
use File;
has 'dirs' => (is => 'ro', isa => 'HashRef[Dir]' );
has 'files' => (is => 'ro', isa => 'HashRef[File]');
has 'dir_class' =>
浏览 1提问于2017-02-04得票数 0
回答已采纳
我得到一个编译时错误(Moose抱怨修改了一个不可变的实例)，在包上运行'perl -c‘，但是使用包的代码运行无错误。示例代码：
文件Pa_1.pm (使用MooseX：：别名和包Pa_2.pm的不可变Moose类)：
package Pa_1;
use Pa_2;
use Moose;
# uncommenting either this line ...
use MooseX::Aliases;
# ... or this line to make 'perl -c' work
__PACKAGE__->meta->make_immutable
浏览 8提问于2012-11-05得票数 0
回答已采纳
1回答
为了便于部署，我试图将一组Perl模块捆绑在RPM包中。我尝试过很多工具，但最终还是选择了fpm ()。
因此，我已经为每个所需的Perl模块手工构建和安装了每个RPM。我不确定这是否正确。但是我对RPM软件包没有太多的经验。但据我所知，这是正确的行为。每个RPM包都包含相应的Perl模块所需的所有依赖项。
问题是，当我试图使用产生的包安装我的模块时，我会遇到一些冲突。
sudo yum --disablerepo=* localinstall *.rpm
当它试图安装：
Transaction Summary
=========================================
浏览 3提问于2020-11-03得票数 1
回答已采纳
我正在编辑使用Moose的包，我想知道是否有一个插件可以让Moose属性显示在标签列表中。
例如，在下面的代码中，属性options不会在Tag_List中显示，但print_out_site会：
use Moose;
use MooseX::AttributeHelpers;
...
has 'options' => (
metaclass => 'Collection::Hash',
isa => 'HashRef[Str]',
is => 'ro'
浏览 1提问于2010-02-02得票数 6
回答已采纳
1回答
我开始学习使用Moose的Perl中的对象。
我不确定我是否理解MooseX::Privacy的目的。考虑：
use v5.14;
package PA {
use Moose;
my $var='private?';
1;
sub getVar {
return $var;
}
}
package PB {
use Moose;
use MooseX::Privacy;
has 'var' => (
is => 'rw',
浏览 5提问于2014-04-09得票数 4
这是一个非常简单的问题，但我仍然在学习，却找不到答案。
需要检查向Moose对象构造函数提供的(必需)参数的有效性，例如，在下一个示例中：
use 5.016;
use warnings;
package My {
use Moose;
has 'mydir' => (
is => 'ro',
isa => 'Str',
required => 1,
);
}
use File::Path qw(remove
浏览 0提问于2013-10-20得票数 4
回答已采纳
我需要在Moose中有一个class属性。现在我说的是：
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use MooseX::Declare;
class User {
has id => (isa => "Str", is => 'ro', builder => '_get_id');
has name => (isa => "Str", is => 'ro');
h
浏览 5提问于2009-06-29得票数 12
我绝对是Moose的新手，到目前为止，我已经读过和大部分。
有几件事我不明白。我创建了以下包：
package MyRange;
use Moose;
use namespace::autoclean;
has [ 'start', 'end' ] => (
is => 'ro',
isa => 'Int',
required => 1,
);
__PACKAGE__->meta->make_immutable;
1;
然后：
use MyR
浏览 1提问于2010-10-01得票数 5
回答已采纳
我的做法是：
package 'My::FH';
use Moose;
has 'csv' => (
is => 'ro',
isa => 'Text::CSV',
);
sub store_data {
my $self = shift;
... read lines...
$self->csv->parse($line);
}
__PACKAGE__->meta->make_immutable;
1;
但是，当在子程序中调用$self->csv-
浏览 6提问于2015-03-07得票数 0
回答已采纳
我想在基类中定义一个所有子类都可以读写的“注册表”散列，如何使用Moose/Perl实现这一点？
浏览 0提问于2011-09-15得票数 2
回答已采纳
是否可以创建一个只能在Moose的构造函数中设置的属性？我想做这样的事情：
my $foo = new Foo(file => 'foo.txt');
my $bar = new Foo(string => $str);
$foo->file('baz.txt'); # dies
我知道我可以创建一个不能在构造函数中设置的属性，但似乎缺少补充用例。
浏览 0提问于2009-08-12得票数 3
回答已采纳
可以从Perl中的Moose对象获取子例程引用吗？例如：
package A;
use Moose;
1;
sub mm {
print "Hello\n";
}
然后我创建了一个A对象：
use warnings;
use strict;
use A;
my $o=A->new();
my $sub=\&{$o->mm};
$sub->();
这不管用。它会产生错误：
Undefined subroutine &main::1
如果我知道$o是一个A对象，我当然可以使用my $sub=\&A::mm;来解决这个问题。但在这种
浏览 6提问于2014-08-25得票数 1
回答已采纳
我只想在Moose中声明一个只读属性，该属性不能在调用new时初始化。因此，在声明了以下内容之后：
package SOD::KuuAnalyze::ProdId;
use Moose;
has 'users' => (isa => 'ArrayRef[Str]', is => "ro");
1;
我不想让下面的代码正常工作：
my $prodid = SOD::KuuAnalyze::ProdId->new(users => ["one", "two"]);
浏览 0提问于2009-11-29得票数 6
回答已采纳
我正试图找出适当的方法，将驼鹿纳入我的项目。 --我发现了一篇文章，建议Moose类型应该组织在类型库中，这似乎是个好主意。因此，我根据提供的示例编写了以下代码：
文件1: MyTypeLib.pm
package MyTypeLib;
use MooseX::Types -declare => [ qw( MyStatus ) ];
use MooseX::Types::Moose qw/Int/;
subtype MyStatus,
as Int,
where { $_ >= 0 && $_ < 10 },
messa
浏览 7提问于2016-11-11得票数 2
回答已采纳
我正在尝试使用Perl和Moose创建抽象方法模式。我不明白的是，如果我覆盖来自AbstractClass的方法，那么它最终还是会被调用。为什么会有这样的方法来避免超类被调用呢？
主
package main;
use AbstractSort;
use OrderedSort;
# Sub class test
my $ordered = OrderedSort->new(array => [1, -1, 23, 34123, -24324]);
$ordered->sortData();
AbstractClass
package AbstractSort;
use n
浏览 2提问于2017-08-14得票数 2
回答已采纳
4回答
我已经开始将一个项目转换为Moose，我注意到的第一件事就是我的批判性/整洁测试下了地狱。驼鹿，Tidy和Critic似乎不像以前那样喜欢对方了。
有没有关于如何让评论家/整洁更加欣赏驼鹿方言的文档？大多数Moose用户都做些什么？对于更重的Moose模块，放松/抛弃批评者？自定义策略？
浏览 7提问于2008-09-18得票数 18
3回答
我想定义一个数组作为类的属性，并在实例化类时用一些数据填充它。
我认为可以使用$self->attribute->set($id, $value)方法来设置给定索引上的元素。至少这是我从驼鹿中理解的。
但当我尝试的时候
use Data::Dumper qw( Dumper );
use Moose;
has cells => (
is => 'rw',
traits => ['Array'],
isa => 'ArrayRef',
default => sub
浏览 0提问于2012-12-16得票数 3
回答已采纳
我有一个基类和12个派生类。除一个派生类外，所有派生类都需要一个名为key的属性。因此，我可以将它添加到11个派生类中，而不使用第12个派生类。
但是，由于懒惰，我想将属性添加到基类中，从而避免重复声明11次，并添加我认为是一致性和简单性的内容。
现在，这给不需要key属性的一个类带来了问题。请注意，如果该类具有此属性，则不会造成危害，但它不需要它。
我的想法是通过使用标志方法is_strict来解决这个问题，这个方法将从BUILDARGS中调用，以决定是否需要key。这里有一个简单的脚本来说明这一点(好吧，我倒了这个概念，只需要一种情况下需要key属性(除了一种情况之外)，但是问题仍然受到这
浏览 0提问于2011-06-03得票数 3
回答已采纳
编辑：下面添加的答案，这里留下的问题仅用于历史目的。
指出：
如果需要，还可以显式指定用于读取和写入属性值的方法名。当您希望一个属性公开可读，但只能私下设置时，这就特别方便了。例如：
有‘=>’( is => 'ro'，=>‘_set_ writer’)；
如果基于其他方法计算权重，这可能会很有用。例如，每次调用eat方法时，我们都可能调整体重。这使我们能够隐藏权重更改的实现细节，但仍然为类的用户提供权重值。
基于这个例子，我编写了以下代码：
has '_current_url' => (
is => 'ro
浏览 1提问于2013-08-30得票数 2
回答已采纳
1回答
我不能用MooseX::Declare重写角色中已经声明的属性。
use MooseX::Declare;
role Person {
has 'name' => (
is => 'ro',
isa => 'Str',
default => 'John',
);
}
class Me with Person {
has '+name' => (
default => 'Michael',
);
}
通过执
浏览 2提问于2013-03-27得票数 1
我正在写我的第一个驼鹿基础程序。该程序创建了一个"state“对象，它是其他几个驼鹿对象的组合。在程序结束时，我希望将"state“对象保存到一个文件中。我正在尝试使用MooseX::Storage来做这件事。我收到一个错误(如下所示)，这意味着它正在尝试序列化MooseX::Log::Log4perl对象。
Object (Log::Log4perl::Logger=HASH(0x2211c800)) does not have a &pack method, cannot collapse at /usr/lib/perl5/site_perl/5.8.8/Moos
浏览 2提问于2011-09-03得票数 4
回答已采纳
既然已经定义了Fooable和Barable这两个角色，我怎么说FooBar类就是Fooable和Barable呢？我毫不犹豫地说
#!/usr/bin/perl
use MooseX::Declare;
role Fooable {
method foo { print "foo\n" }
}
role Barable {
method bar { print "bar\n" }
}
class Foo with Fooable {}
class Bar with Barable {}
package main;
use stric
浏览 1提问于2009-07-19得票数 6
2回答
我正在做一个项目，它要求所有第三方(阅读: CPAN) perl模块都安装在perforce存储库中，这样依赖它们的任何代码都可以成功运行，而不需要其他任何人手动安装它们。我使用cpanminus来安装我的CPAN模块，所以我在所需的目录中运行了cpanm -L . Moose，并且一切都安装成功了。然而，当我尝试编译我用Moose制作的模块时，我有时会得到这样的错误：
Undefined subroutine &Carp::longmess_heavy called at /usr/lib/perl5/5.8.8/Carp.pm line 235.
看起来，尽管Carp是随Moose
浏览 1提问于2013-03-22得票数 2
回答已采纳
许多标准模块都直接使用perl --问题是这些人没有使用Moosey的东西，所以我发现自己用Moose包装它们，或者在更大的库中重新设计一些简单的函数，以便方便。
我想知道是否有任何通用的方法，开发人员如何使用Moose合并其他库是非Moose。
作为Perl和Moose的新手，我希望更好地了解Moose在这种情况下是如何使用的，或者什么时候更倾向于使用MooseX Perl，甚至MooseX，或者其他一些包，或者它是否是任意的。
似乎有不同的思想流派，但Perl已经老了--有太多相互冲突的来源，所以很难找到一致的事实。我不知道该相信什么！
对于perl的“现代”用法，有谁有明确的源代码吗？我
浏览 3提问于2011-10-14得票数 5
回答已采纳
我一直在尝试这段代码：
package Foo;
use Moose;
package main;
my $PACKAGE = "Foo";
{
no strict 'refs';
my $has = *{"${PACKAGE}::has"}{CODE};
my $with = *{"${PACKAGE}::with"}{CODE};
# Add a instance member to class $PACKAGE
$has->("bar", is => "rw&#
浏览 0提问于2011-08-22得票数 3
回答已采纳
Perl Moose模块会自动将严格和警告模块导入到任何子类中，这是从Moose文档中导入的。
我想为我自己的模块实现这个逻辑，也就是说，我想将我自己的模块导入到我的应用程序基模块子类的每个模块中。
下面是一个例子：
#============================
package MyBaseClass;
use Moose;
has config => (
is => 'rw',
default => sub { {
who => 'World',
} }
);
#========
浏览 1提问于2014-03-02得票数 1
回答已采纳
2回答
我有以下关于驼鹿类的性质
package myPackage;
use Moose;
has Number => (
is => 'rw',
isa => Num,
);
是否有Moose选项将此类型限制为浮点数从0到100，如果有人试图插入不在0 -100范围内的数字，则该值将是undef，如果是，如何实现？
浏览 3提问于2013-12-20得票数 4
回答已采纳
我有一个类，我想在它的id属性上应用字符串重载。但是，Moose不允许在属性访问器上重载字符串。例如：
package Foo;
use Moose;
use overload '""' => \&id, fallback => 1;
has 'id' => (
is => 'ro',
isa => 'Int',
default => 5,
);
package main;
my $foo = Foo->new;
print "$f
浏览 2提问于2011-08-29得票数 10
回答已采纳
2回答
如何将类变量声明为Moose中的浮点？
我的(虚构的)示例产生了错误的“真实”，“数字”等。"Str“行得通，但却辜负了目的。搜索/谷歌帮不上忙，因为我打不到正确的搜索词.
PROBLEM.pm
package PROBLEM;
use strict;
use warnings;
use Moose;
has 'PROBLEM'=> (isa=>'real',is =>'ro',required=>'0',default=>sub {0.1;});
main.pl
use strict;
浏览 11提问于2009-09-17得票数 7
回答已采纳
当然，我知道可以通过设置init_arg (例如)将init重命名为属性。
package Test {
use Moose;
has attr => (
is => 'ro',
isa => 'Str',
init_arg => 'attribute'
);
}
这会让我
Test->new({ attribute => 'foo' });
但不是
Test->new({ attr => 'foo'
浏览 3提问于2012-04-07得票数 5
回答已采纳
1回答
我有一个JSON字符串，例如
use JSON::XS qw(decode_json);
say Dumper( decode_json($json) );
将产生：
$VAR1 = {
'Fname' => 'SomeFname',
'Lname' => 'SomeLname',
'Addr' => {
'Street => 'Somestreet',
'Zip' => '
浏览 2提问于2012-09-03得票数 5
回答已采纳
2回答
我有一个WrapperClass对象，它有一个InnerClass对象作为属性。InnerClass对象有一个权重属性。我的WrapperClass对象也有一个加权属性，我希望它的默认值是InnerClass对象的权重属性的值。
#!/usr/bin/perl
package InnerClass;
use Moose;
has 'weight' => (
is => 'rw',
);
package WrapperClass;
use Moose;
has 'wrapped' => (
is =>
浏览 1提问于2015-06-11得票数 0
回答已采纳
我的perl脚本中有use strict;use warnings;；
但是找不到这个错误：
sub new {
#....
my $self={};
$self->{databas}="..."; # 'e' is missing
#....
}
sub foo {
my $self=shift;
print $self->{database}; # undef
}
我花了几个小时才发现sub new中数据库拼写错误。
use strict;use warnings;没有帮上忙。
如何避免
浏览 0提问于2012-01-13得票数 2
回答已采纳
2回答
我在我的/应用程序中使用为我的用户生成表单。它工作得很好，唯一的问题是它大大减慢了页面加载时间。下面是创建新表单的子例程：
sub edit : Chained('base') PathPart Args(0) {
my ( $self, $c ) = @_;
my $form = myapp::Form::Account::Edit->new;
#validation stuff, etc
#...
}
只需添加一行"my $form = myapp::Form::Account::Edit->new;“，我的页面加载
浏览 0提问于2013-01-30得票数 1
回答已采纳
我正在尝试使用'Test::WWW::Selenium::More‘和'Moose’，同时用Perl创建我自己的名为'MySelenium‘的类。
这是我运行程序时出现的Moose错误：
You must pass an even number of attribute options at /Library/Perl/5.18 /darwin-thread-multi-2level/Moose/Exporter.pm line 422
Moose::has('host', 'localhost') called at MySelen
浏览 1提问于2015-10-17得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
