Help for this page

Select Code to Download

Select or download this

## turn (unless id contains one or more digits only)
return qq(bad id "$id"\n) unless $id =~ /^\d+$/;
## into (if id contains non-digits)
return qq(bad id "$id"\n) if $id =~ /\D/;

Select or download this
```
.
```