view release on metacpan or  search on metacpan

t/test.pl  view on Meta::CPAN

use Ante::Deluvian::Dialog;
use Data::Dumper;
use IO::File;

my ($FALSE, $TRUE) = (0, 1);
my $isWin  = $FALSE;
my $pltFrm = $^O;
if ($pltFrm =~ /win32/i) {
  $pltFrm = "MSWIN";
  $isWin  = $TRUE;
  binmode(STDOUT, ":encoding(cp437)");  # für die korrekte Darstellung deutscher Umlaute
}
else {
  $pltFrm = "UNIX";
}
my $ed = Ante::Deluvian::Dialog->new(
          platform  => $pltFrm,
          drawframe => $TRUE,
          title     => "Fenster-Überschrift",
          header    => "Das ist der sog. Kopf",
          prompt    => "Bitte wählen Sie:",