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 (file)
--- 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 (file)
--- 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',