projects
/
scpubgit/stemmatology.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
8d9494a
)
tweak options for classifying readings and relationships. Needed for tla/stemmaweb#33
Tara L Andrews [Sat, 18 Jan 2014 12:24:39 +0000 (13:24 +0100)]
base/lib/Text/Tradition/Collation/Reading.pm
patch
|
blob
|
blame
|
history
base/lib/Text/Tradition/Collation/Relationship.pm
patch
|
blob
|
blame
|
history
diff --git
a/base/lib/Text/Tradition/Collation/Reading.pm
b/base/lib/Text/Tradition/Collation/Reading.pm
index
62b592e
..
a482b60
100644
(file)
--- a/
base/lib/Text/Tradition/Collation/Reading.pm
+++ b/
base/lib/Text/Tradition/Collation/Reading.pm
@@
-104,6
+104,13
@@
has 'text' => (
writer => 'alter_text',
);
+has 'is_lemma' => (
+ is => 'ro',
+ isa => 'Bool',
+ default => undef,
+ writer => 'make_lemma',
+ );
+
has 'is_start' => (
is => 'ro',
isa => 'Bool',
diff --git
a/base/lib/Text/Tradition/Collation/Relationship.pm
b/base/lib/Text/Tradition/Collation/Relationship.pm
index
d43ea21
..
2610f20
100644
(file)
--- a/
base/lib/Text/Tradition/Collation/Relationship.pm
+++ b/
base/lib/Text/Tradition/Collation/Relationship.pm
@@
-117,11
+117,16
@@
has 'alters_meaning' => (
default => 0,
);
-has 'non_correctable' => (
+has 'a_derivable_from_b' => (
is => 'ro',
isa => 'Bool',
);
-
+
+has 'b_derivable_from_a' => (
+ is => 'ro',
+ isa => 'Bool',
+ );
+
has 'non_independent' => (
is => 'ro',
isa => 'Bool',