If you still want the sameness, you can do like this

sub Compress::DSRC::Archive::NextSeq {
    my( $reader ) = @_;
    my $seq = Compress::DSRC::FastqRecord->new;
    return $seq if $reader->next_seq($seq)
    return undef;
}
[download]