what was this talk about again?

• Oh yeah, MooseX::Declare

use MooseX::Declare;

role Doc::Perlish::DAG_Node {

method add_daughters( Doc::Perlish::DAG_Node @daughters ) {
        push @{ $self->daughters }, @daughters;
        for ( @daughters ) {
                $self->{mother} = $self;
        }
}