changed interface for Tradition init

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 1de487f..bdae9a5 100644 (file)
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -23,15 +23,10 @@ sub run_analysis {
        my $svg;
        my $variants = [];
        
-       # Read in the file and stemma
-       my @lines;
-       open( INFILE, "$file" ) or die "Could not read $file";
-       binmode INFILE, ':utf8';
-       @lines = <INFILE>;
-       close INFILE;
-       
+       # Read in the file and stemma   
        my $tradition = Text::Tradition->new( 
-               'Self' => join( '', @lines ),
+               'input'  => 'Self',
+               'file'   => $file,
                'linear' => 1,
                );
        my $stemma = Text::Tradition::Stemma->new(