[Bioperl-l] no_residues test in SimpleAlign.t

[Albert Vilella]

Hi all,

Can somebody check the SimpleAlign.t test?

perl t/SimpleAlign.t

I get a few errors, I am looking at one that deals with no_residues. I
don't understand if this is suposed to work:

sub no_residues {
    my $self = shift;
    my $count = 0;

    foreach my $seq ($self->each_seq) {
	my $str = $seq->seq();

	$count += ($str =~ s/[^A-Za-z]//g);
        #is this the same as:
        # $str =~ s/[^A-Za-z]//g;
        # $count += length($str);
    }

Cheers,

    Albert.
    return $count;
}