view release on metacpan or  search on metacpan

lib/SmotifTF/GetSMotifsfromPDB.pm  view on Meta::CPAN

        && defined($end)
        && defined($ressequence)
        && defined($sssequence)
        && defined($ArrayRef_coordchain) )
    {
        die "There was error: arguments for checklength subroutine\n";
       # return;
    }
    my $checklength;

    #count insertions in the start-end range
    my $numinsertions = 0;
    my $InRange       = 0;
    my $rescount      = 0;
    my %CAcoords;
    my $firstresnum = 'NA';
    my $lastresnum  = 'NA';
  PDBLINE: foreach my $line (@$ArrayRef_coordchain) {

        #get the coordinate line info for any ATOM or HETATM record
        next PDBLINE unless ( $line =~ /^(ATOM|HETATM)/ );