Select Code to Download

Select or download this

my $file = $options{file} // $options{input_file} //
     get_default_option (""file") // get_default_option ("input_file")
+ //
     file_exists ("$ENV{WORK_DIR}/file.in") //
     file_exists ("$ENV{HOME}/project_in.file") or die;

Select or download this

printf "%-20s: %s\n", $_, $options{$_} // "<undef>" for keys %options;

function (map { $_ // "default" } @values);

my @sorted = sort { ($a->{order} // 0) <=> ($b->{order} // 0) } @aoh;