有没有关键字';与';用Perl?
在这个文件中 , 我被这句话弄糊涂了 带有“CIF::可观察的” 在第9行,Perl中是否有关键字“with”?它是如何工作的有没有关键字';与';用Perl?,perl,with-statement,Perl,With Statement,在这个文件中 , 我被这句话弄糊涂了 带有“CIF::可观察的” 在第9行,Perl中是否有关键字“with”?它是如何工作的 package CIF::Observable::Binary; use strict; use warnings; use Mouse; use Digest::SHA qw/sha256_hex/; with 'CIF::Observable'; use constant DEFAULT_HASH_TYPE => 'sha256'; has '+ot
package CIF::Observable::Binary;
use strict;
use warnings;
use Mouse;
use Digest::SHA qw/sha256_hex/;
with 'CIF::Observable';
use constant DEFAULT_HASH_TYPE => 'sha256';
has '+otype' => (
default => 'binary',
);
has 'hash' => (
is => 'ro',
isa => 'CIF::Type::Hash',
default => sub { sha256_hex($_[0]->{'observable'}) },
);
has 'htype' => (
is => 'ro',
isa => 'Str',
default => DEFAULT_HASH_TYPE(),
);
sub process {}
sub understands {
my $self = shift;
my $args = shift;
return unless($args->{'observable'});
return unless($args->{'otype'});
return unless($args->{'otype'} eq 'binary');
return 1;
}
__PACKAGE__->meta()->make_immutable();
1;
对象系统使用
with
关键字来指示所定义的类使用指定的角色
Mouse
是Moose
对象系统的简化实现,主要用于减少基于Moose
在鼠标
中处理角色的方式与在驼鹿
中处理角色的方式几乎相同,并且为这两个模块提供服务