Indices: optimise _calc_phylo_abc_lists

If we have no second neighbour set then there is no need to run all the hash processing.
shawnlaffan · Feb 25, 2024 · b321c48 · b321c48
1 parent b7456f0
commit b321c48
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/Biodiverse/Indices/Phylogenetic.pm b/lib/Biodiverse/Indices/Phylogenetic.pm
@@ -2679,6 +2679,15 @@ sub _calc_phylo_abc_lists {
         el_list  => $args{element_list1},
     );
 
+    if (!@{$args{element_list2}}) {
+        my $res = {
+            PHYLO_A_LIST => {},
+            PHYLO_B_LIST => $nodes_in_path1,
+            PHYLO_C_LIST => {},
+        };
+        return wantarray ? %$res : $res;
+    }
+
     my $nodes_in_path2 = @{$args{element_list2}}
         ? $self->get_path_lengths_to_root_node (
             %args,