moose

Ok just to sanity check overload doesnt seem to be working for me. I don't know if it's the version of perl I have, or the version of overload.pm, or something wrong with how I've implemented it, but this code doesnt work for me. perl version This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi overload version perl -Moverload -e 'print "$overload::VERSION\n";' 1.07 Token.pm package Token; use namespace::autoclean; use Data::Dumper; use Moose; use Moose::Util::TypeConstraints; use overload '+' => \&_overload_add, fallback => 1; has 'secretvalue' => ( is => 'rw', isa => 'Int'); sub

I have a Moose class that is intended to be subclassed, and every subclass has to implement an "execute" method. However, I would like to put apply a method modifier to the execute method in my class, so that it applies to the execute method in all subclasses. But method modifiers are not preserved when a method is overriden. Is there any way to ensure that all subclasses of my class will have my method modifier applied to their execute methods? Example: In a superclass, I have this: before execute => sub { print "Before modifier is executing.\n" } Then, in a subclass of that: sub execute {

In trying to answer How to instantiate Moose classes from a big hash , I think I have hit another place where I don't fully understand Moose type coercions. For some reason, the below code issues warnings: You cannot coerce an attribute (departments) unless its type (ArrayRef[Company::Department]) has a coercion at ./test.pl line 12. You cannot coerce an attribute (employees) unless its type (ArrayRef[Company::Person]) has a coercion at ./test.pl line 23. but then succeeds. #!/usr/bin/env perl use warnings; use strict; package Company; use Moose; use Moose::Util::TypeConstraints; has 'id' =>

Say that I have two roles: Simple::Tax and Real::Tax. In testing situations, I want to use Simple::Tax, and in production, I want to use Real::Tax. What is the best way to do this? My first thought was to use different versions of the new method to create objects with different roles: #!/usr/bin/perl use warnings; { package Simple::Tax; use Moose::Role; requires 'price'; sub calculate_tax { my $self = shift; return int($self->price * 0.05); } } { package A; use Moose; use Moose::Util qw( apply_all_roles ); has price => ( is => "rw", isa => 'Int' ); #price in pennies sub new_with_simple_tax {

i was wondering, what is the best way to store Hash of Hashes in Moose. Lets take for example a Hash like this: my %hash = ('step1' => {'extraction' => \$object1, 'analysis' => \$object2}, 'step2' => {'extraction' => \$object3, 'analysis' => \$object4}); but i want to save this one in a moose attribute. How should i organize the access (reading, writing) on this. Examples on the net are mostly for "flat" hashes. But then you can use helpers like Moose::Meta::Attribute::Native::Trait::Hash. Is there something similar for hash of hashes? Reason for this is, that i want to iterate over the step

Currently have: package Local; use warnings; use Moose; use Method::Signatures::Simple; use Path::Class::File; use Path::Class::Dir; method _build_path_class { my $str = $self->pathstr; return Path::Class::Dir->new($str) if (-d $str); return Path::Class::File->new($str); } has 'pathstr' => (is => 'rw', isa => 'Str', required => 1); has 'path' => ( is => 'rw', lazy => 1, #isa => 'Path::Class::File|Path::Class::Dir', #this didn't work isa => 'Object', builder => '_build_path_class', ); no Moose; __PACKAGE__->meta->make_immutable(); 1; It is working, so my $d = Local->new(pathstr => '/tmp')->path