Exd/scripts/main.pl

22 lines
320 B
Perl

#!/usr/bin/env perl
use v5.40.0;
use strict;
use warnings;
use File::Basename qw/dirname/;
BEGIN {
open my $fh, '>&', \*STDERR;
open STDERR, '>', '/dev/null';
system 'perl', 'Build.PL';
system 'perl', 'Build', 'build';
open STDERR, '>&', $fh;
};
use blib;
use Exd::Gui;
Exd::Gui->new->start();