File Coverage

blib/lib/Spreadsheet/Open.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	4	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	40	52.5

package Spreadsheet::Open;

use strict;
use warnings;
use Log::ger;

use File::Which;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-11-09'; # DATE
our $DIST = 'Spreadsheet-Open'; # DIST
our $VERSION = '0.002'; # VERSION

our @EXPORT_OK = qw(open_spreadsheet);

my @libreoffice_versions = qw(
                                 7.5 7.4 7.3 7.2 7.1 7.0
                                 6.4 6.3 6.2 6.1
                         );

my @known_commands = (
    # [os, program, params]
    ['', 'libreoffice', ['--calc']],
    (map { ['', "libreoffice$_", ['--calc']] } @libreoffice_versions),
);

sub open_spreadsheet {
    my $path = shift;

    for my $e (@known_commands) {
        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__