lib/Text/Tradition/Collation/Path.pm

   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