view release on metacpan or  search on metacpan

script/zonemaster-cli  view on Meta::CPAN

        next if /^\s*$/;
        next if /^\s*#/;
        push @lines, $_;
    }
    return @lines;
}

# Load default arguments from file in home directory, if any
# This must be loaded before any global file to make the local
# file take precedence
my $home_dir       = ( ( getpwuid( $< ) )[7] ) || $ENV{HOME};
my $home_conf_file = File::Spec->catfile( $home_dir, '.zonemaster', 'cli.args' );

if ( -r $home_conf_file ) {
    my @lines = read_conf_file( $home_conf_file );
    unshift @ARGV, @lines;
}

# Load default arguments from global file, if any
my @global_conf = ( '/etc/zonemaster/cli.args', '/usr/local/etc/zonemaster/cli.args' );    # Order is significant.
my $global_conf_file;