[scpubgit/stemmatology.git] / lib / Text / Tradition / Collation / Path.pm

package Text::Tradition::Collation::Path;

use Moose;
use MooseX::NonMoose;

## CAREFUL if we want to use Moose::Util::TypeConstraints.  That
## 'from' clashes with Graph::Easy::Edge 'from', so we'll need to
## unimport TypeConstraints after defining the types.  Or else we
## would have to finally split out our types into another module.

extends 'Graph::Easy::Edge';

has 'hidden_witnesses' => (
    is => 'rw',
    isa => 'ArrayRef[Str]',
    predicate => 'has_hidden_witnesses'
);

sub BUILD {
    my $self = shift;
    $self->set_attribute( 'class', 'path' );
}

no Moose;
__PACKAGE__->meta->make_immutable;
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