view release on metacpan or  search on metacpan

lib/Spreadsheet/Open.pm  view on Meta::CPAN

        next if $e->[0] && $^O ne $e->[0];
        my $which = which($e->[1]);
        next unless $which;
        log_trace "Opening file %s in spreadsheet program %s ...",
            $path, $which;
        return system($which, @{ $e->[2] }, $path);
    }

    log_trace "Falling back to using Desktop::Open ...";
    require Desktop::Open;
    return Desktop::Open::open_desktop($path);
}

1;
# ABSTRACT: Open spreadsheet in a spreadsheet program

__END__

=pod

=encoding UTF-8