From: Tara L Andrews <tla@mit.edu>
Date: Fri, 14 Sep 2012 12:49:28 +0000 (+0200)
Subject: require methods we assume existence of; add Module::Load to Language
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=332750fc2678ace01e63fe9ec801d2904959e87d;p=scpubgit%2Fstemmatology.git

require methods we assume existence of; add Module::Load to Language
---

diff --git a/morphology/lib/Text/Tradition/Language.pm b/morphology/lib/Text/Tradition/Language.pm
index bf221aa..01b3ba6 100644
--- a/morphology/lib/Text/Tradition/Language.pm
+++ b/morphology/lib/Text/Tradition/Language.pm
@@ -2,8 +2,11 @@ package Text::Tradition::Language;
 
 use strict;
 use warnings;
+use Module::Load;
 use Moose::Role;
 
+requires 'throw';
+
 =head1 NAME
 
 Text::Tradition::Language - add-on role to enable language awareness and 
diff --git a/morphology/lib/Text/Tradition/Morphology.pm b/morphology/lib/Text/Tradition/Morphology.pm
index 1c3b913..bedba04 100644
--- a/morphology/lib/Text/Tradition/Morphology.pm
+++ b/morphology/lib/Text/Tradition/Morphology.pm
@@ -17,6 +17,8 @@ information to Text::Tradition::Collation::Reading objects
 
 =cut
 
+requires 'is_identical', 'is_combinable', '_combine';
+
 has 'grammar_invalid' => (
 	is => 'rw',
 	isa => 'Bool',