projects
/
scpubgit/stemmatology.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
tests passing with new library, yay
[scpubgit/stemmatology.git]
/
lib
/
Text
/
Tradition
/
Collation
/
Reading.pm
diff --git
a/lib/Text/Tradition/Collation/Reading.pm
b/lib/Text/Tradition/Collation/Reading.pm
index
e3d6d6d
..
971a26b
100644
(file)
--- a/
lib/Text/Tradition/Collation/Reading.pm
+++ b/
lib/Text/Tradition/Collation/Reading.pm
@@
-85,6
+85,12
@@
sub set_identical {
$self->same_as( $enlarged_pool );
}
+sub identical_readings {
+ my $self = shift;
+ my @same = grep { $_ ne $self } @{$self->same_as};
+ return @same;
+}
+
sub _merge_array_pool {
my( $pool, $main_pool ) = @_;
my %poolhash;