20251125

99.scripts/trinity_utils/PerlLib/KmerGraphLib/AlignNode.pm

@@ -0,0 +1,19 @@
+package AlignNode;
+
+use base qw (ReadCoverageNode);
+
+## Instead of storing Kmers, will store base number and strand positions.
+
+sub new {
+	my $packagename = shift;
+	my ($stranded_base, $read_accession) = @_;
+	
+	my $self = $packagename->SUPER::new($stranded_base, $read_accession);
+	
+	bless ($self, $packagename);
+
+	return($self);
+}
+
+
+1; #EOM