sub length {
    my $self = shift;
    return length($self->seq);
}

Example 1: The length method.