debian
docs
i3-config-wizard
i3-input
i3-msg
i3-nagbar
i3bar
include
man
render-tree
Con.pm
render.pl
src
testcases
tests
yajl-fallback
.gitignore
CMDMODE
DEPENDS
GOALS
LICENSE
Makefile
PACKAGE-MAINTAINER
RELEASE-NOTES-4.0
RELEASE-NOTES-4.0.1
TODO
common.mk
dump-asy.pl
gtk-tree-watch.pl
i3-migrate-config-to-v4
i3-wsbar
i3.config
i3.config.keycodes
i3.desktop
i3.welcome
logo.svg
pseudo-doc.doxygen
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
|