The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
BEGIN {
    $0 = '-e';
}

use Test::More 'no_plan';

use_ok Getopt::Euclid;

# When running into eval mode, e.g. perl -e 'use Getopt::Euclid', @ARG is empty
# but $0 is '-e'. This leads to the warnings:
#    skipping file: '-e': no matches found
#    Use of uninitialized value in localtime at lib/Getopt/Euclid.pm line 370.

ok 1;