X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition.pm;h=8abeb6a99933fb34d5380dbd1b9c2d58408b0363;hb=63778331994b16f1890a1d6aa1a1e0dbfad73a21;hp=bbdb45b4f3406bcef15fb8485d49cb7200db31f5;hpb=56cf65bd9ea030e1e7e0cc0bd77673e4f5f00bc8;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index bbdb45b..8abeb6a 100644
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -38,6 +38,7 @@ has 'stemma' => (
 	is => 'ro',
 	isa => 'Text::Tradition::Stemma',
 	writer => '_add_stemma',
+	predicate => 'has_stemma',
 	);
   
 # Create the witness before trying to add it
@@ -127,6 +128,8 @@ following:
 
 =item * CTE - a TEI XML format produced by Classical Text Editor
 
+=item * JSON - an alignment table in JSON format, as produced by CollateX and other tools
+
 =item * KUL - a specific CSV format for variants, not documented here
 
 =item * TEI - a TEI parallel segmentation format file
@@ -253,7 +256,7 @@ sub BUILD {
         $self->_save_collation( $collation );
 
         # Call the appropriate parser on the given data
-        my @format_standalone = qw/ Self CollateText CollateX CTE TEI Tabular /;
+        my @format_standalone = qw/ Self CollateText CollateX CTE JSON TEI Tabular /;
         my @format_basetext = qw/ KUL /;
         my $use_base;
         my $format = $init_args->{'input'};