Commit | Line | Data |
3265b0ce |
1 | package Text::Tradition::Collation::Path; |
2 | |
3 | use Moose; |
4 | use MooseX::NonMoose; |
5 | |
6 | ## CAREFUL if we want to use Moose::Util::TypeConstraints. That |
7 | ## 'from' clashes with Graph::Easy::Edge 'from', so we'll need to |
8 | ## unimport TypeConstraints after defining the types. Or else we |
9 | ## would have to finally split out our types into another module. |
10 | |
11 | extends 'Graph::Easy::Edge'; |
12 | |
13 | has 'hidden_witnesses' => ( |
14 | is => 'rw', |
15 | isa => 'ArrayRef[Str]', |
16 | predicate => 'has_hidden_witnesses' |
17 | ); |
18 | |
19 | sub BUILD { |
20 | my $self = shift; |
21 | $self->set_attribute( 'class', 'path' ); |
22 | } |
23 | |
24 | no Moose; |
25 | __PACKAGE__->meta->make_immutable; |
26 | |