sub len ($_ = $CALLER::_) { length }