sub provided
{
     return defined($_[0]) && length ($_[0]);
}