22 lines
504 B
Perl
22 lines
504 B
Perl
|
# vim:ts=4:sw=4:expandtab
|
||
|
|
package Con;
|
||
|
|
|
||
|
|
use Moose;
|
||
|
|
use MooseX::AttributeHelpers;
|
||
|
|
use v5.10;
|
||
|
|
|
||
|
|
has 'name' => (is => 'ro', isa => 'Str');
|
||
|
|
has 'width' => (is => 'rw', isa => 'Int', default => 100);
|
||
|
|
has '_nodes' => (is => 'ro', metaclass => 'Collection::Array', isa => 'ArrayRef[Con]',
|
||
|
|
default => sub { [] },
|
||
|
|
provides => {
|
||
|
|
'push' => 'add_node',
|
||
|
|
elements => 'nodes',
|
||
|
|
}
|
||
|
|
);
|
||
|
|
has 'parent' => (is => 'rw', isa => 'Con', predicate => 'has_parent');
|
||
|
|
|
||
|
|
__PACKAGE__->meta->make_immutable;
|
||
|
|
|
||
|
|
1
|