From: tla <tla@mit.edu>
Date: Thu, 12 May 2011 14:53:24 +0000 (+0200)
Subject: First crack at a constructor
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5104dc0979bd916e6090ed929fa4c378c74833e;p=scpubgit%2Fstemmatology.git

First crack at a constructor
---

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index 5f8d080..a7ccf2d 100644
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -2,12 +2,13 @@
 
 package Text::Tradition;
 
+use Text::Tradition::Witness;
+use Text::Tradition::Collation;
 use Moose;
 
 has 'collation' => (
 		    is => 'ro',
 		    isa => 'Text::Tradition::Collation',
-		    init_arg => undef,
 		    );
 
 has 'witnesses' => (
@@ -23,6 +24,48 @@ has 'witnesses' => (
 		    },
 		    );
 
+around BUILDARGS => sub {
+    my $orig = shift;
+    my $class = shift;
+
+    # Now @_ contains the original constructor args.  Make a
+    # collation argument and a witnesses argument.
+    my %init_args = @_;
+    my %member_objects = { 'collation' => undef,
+			   'witnesses' => [] };
+
+    if( exists $init_args{'witnesses'} ) {
+	# We got passed an uncollated list of witnesses.  Make a
+	# witness object for each witness, and then send them to the
+	# collator.
+	my $autosigil = 0;
+	foreach my $wit ( %{$init_args{'witnesses'}} ) {
+	    # Each item in the list is either a string or an arrayref.
+	    # If it's a string, it is a filename; if it's an arrayref,
+	    # it is a tuple of 'sigil, file'.  Handle either case.
+	    my $args;
+	    if( ref( $wit ) eq 'ARRAY' ) {
+		$args = { 'sigil' => $wit->[0],
+			  'file' => $wit->[1] };
+	    } else {
+		$args = { 'sigil' => chr( $autosigil+65 ),
+			  'file' => $wit };
+		$autosigil++;
+	    }
+	    push( @{$member_objects{'witnesses'}},
+		  Text::Tradition::Witness->new( $args ) );
+	    # Now how to collate these?
+	}
+    } else {
+	$member_objects{'collation'} = 
+	    Text::Tradition::Collation->new( %init_args );
+	@{$member_objects{'witnesses'}} = 
+	    $member_objects->{'collation'}->create_witnesses();
+    }
+
+    return $class->$orig( %member_objects );
+};
+
 # The user will usually be instantiating a Tradition object, and
 # examining its collation.  The information about the tradition can
 # come via several routes: