moose

问题 Since Perl/Moose always calls the base class' BUILD function before it calls the subclass BUILD function, there is a new instance of the base class everytime you instantiate a subclass. How do I go about creating a static variable that can be used by all the subclasses, or alternatively how can I create a static base or abstract class? (does that approach even make sense?) I'm trying to create a variable that dynamically enables or disables certain features of a function defined at run-time

问题 I'm trying to migrate from Moose to Mouse in the interests of speed but have encountered a showstopper error. I'm building two objects in the same scope: sub scope { my $foo = Foo->new(); my $bar = Bar->new(); } The BUILD method of Foo is firing but the BUILD method of Bar is not. Any ideas? Both Foo and Bar inherit from Baz which inherits from Mouse::Object. 回答1: You're not really providing enough context for anybody to debug this. Also I'm worried about your comment migrating from Moose to

问题 In Perl/Tk, one can define textvariables for widgets. It's a reference to some scalar that holds the value. Someone showed me how to use Moose attribute coercion to use Moose attributes as textvariable (cool!). This is how it works: subtype 'TkRef' => as 'ScalarRef'; coerce 'TkRef', from 'Str', via { my $r = $_; return \$r }; has 'some_val' => (is => 'rw', isa => 'TkRef', coerce => 1, default => 'default value'); $mw->Entry(-textvariable => $self->some_val); $mw->Label(-textvariable => $self-

问题 I have a bunch of legacy modules I want to convert to being Moose-based. The modules currently have "toXML" methods, which are hand-coded using XML::LibXML. Is there a module or technique for serializing Moose objects to XML? I have looked at MooseX::Storage, but that handles JSON, YAML, and Storage, not XML. A google search for Moose and XML yields lots of references to XML::Rabbit, which seems to be good for parsing XML into Moose classes, but there's not a lot out there for taking Moose

问题 I use MooseX::Storage for serialization of Moose objects. Can I use it for serialization of multiple Moose objects to the same file, or more specifically, an array or a hash of Moose objects? I guess I can define another Moose objects ('array_of_myobj') but this isn't very elegant. So, how would you recommend to serialize an array (or a hash) of Moose objects? 回答1: You don't have to let MooseX::Storage manage your file IO just because it's available. You could use it to pack your objects into

问题 I've got several Modules that have a number of date time related attributes that accept a datestamp and return a human readable string ( dd Mon yyyy hh:mm:ss ). package ModuleOne; use Moose; extends 'ModuleBase'; has date_attr_one => ( ... ); and then ... package ModuleTwo; use Moose; extends 'ModuleBase'; has date_attr_mouse => ( ... ); As it's currently working I'm using an 'around' attribute modifier so that if there's no parameter return the a date in the format of '03 May 2012 12:33:42'.

问题 I have a question of Perl MooseX::Declare. I want to put multiple classes in a single .pm file. How do I make this file, and what will the filename be because that .pm file has multiple classes? For example use MooseX::Declare; class Point { has 'x' => ( isa => 'Num', is => 'rw' ); has 'y' => ( isa => 'Num', is => 'rw' ); method clear { $self->x(0); $self->y(0); } method set_to( Num $x, Num $y) { $self->x($x); $self->y($y); } } class Point3D { has 'z' => ( isa => 'Num', is => 'rw' ); method

问题 I have a series of Moose objects that I'm looking to feed to JSON::XS by way of Catalyst::View::JSON. JSON::XS is unable to encode blessed data-structures. I know that there is MooseX::Storage::Format::JSON which can -- kinda -- do what I want; but, it seems pretty overly heavy. What I'm looking for is essentially the same information that XXX.pm provides. I just want the raw-data structures recursively unblessed so JSON::XS (the driver for JSON::Any that C:V:JSON uses internally) can display

问题 I have a big hash many levels deep, and I'd like to turn this hash into a set of Moose classes. The hash looks something like this: my %hash = ( company => { id => 1, name => 'CorpInc', departments => [ { id => 1, name => 'Sales', employees => [ { id => 1, name => 'John Smith', age => '30', }, ], }, { id => 2, name => 'IT', employees => [ { id => 2, name => 'Lucy Jones', age => '28', }, { id => 3, name => 'Miguel Cerveza', age => '25', }, ], }, ], } ); And the Moose classes: package Company;

问题 I've been curious about constant-folding optimizations which Perl performs, but it occurred that when the code has Moose involved chances are that constant-folding won't be performed (please correct me if I am wrong). I have Moose code which contains the method as below: sub foo { my ($self) = shift; my $test_y = $self->pos->[1]; #... if ($self->is_map_val($self->pos->[0]+8, $test_y+32) || $self->is_map_val($self->pos->[0]+32-8, $test_y+32)) { { heavy_stuff(); } #... } and when I run perl -MO