Select Code to Download

use strict;
use Tk;
...
       $msg->configure(-text => "Login Successful");
    }
}

package AuthService;

...

ok(!AuthService::login("", ""), "Empty user/passord");
ok(!AuthService::login(), "undef user/password");

## LoginForm.pm
package LoginForm;
...
$mw->LoginForm->pack;

MainLoop;

package LoginForm;

...
   }
}
1;

package AuthService;

...
   $lf->Subwidget('UserEntry')->delete(0, 'end');
   $lf->Subwidget('PassEntry')->delete(0, 'end');
}

package AuthService;

...
      $entry->eventGenerate('<Key>', -keysym => $ch);
   }
}

package AuthService;

...
   $lf->Subwidget('UserEntry')->delete(0, 'end');
   $lf->Subwidget('PassEntry')->delete(0, 'end');
}