split out XML parsing logic from CollateX logic in parser

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

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index 60a9396..9f7a334 100644 (file)
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -59,7 +59,7 @@ sub BUILD {
        $self->_save_collation( $collation );
 
        # Call the appropriate parser on the given data
-       my @formats = grep { /^(GraphML|CSV|CTE|TEI)$/ } keys( %$init_args );
+       my @formats = grep { /^(Self|CollateX|CSV|CTE|TEI)$/ } keys( %$init_args );
        my $format = shift( @formats );
        unless( $format ) {
            warn "No data given to create a collation; will initialize an empty one";