sub length {
   my ($self, $string) = @_;
   return length $string;
}