Selenium-Remote-Driver/lib/Selenium/Firefox/Binary.pm

package Selenium::Firefox::Binary;

# ABSTRACT: Portable handler to start the firefox binary
use File::Which qw/which/;

require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT_OK = qw/path/;

sub _windows_path {
    # TODO: make this slightly less dumb
    return which('firefox');
}

sub _darwin_path {
    my $default_firefox = '/Applications/Firefox.app/Contents/MacOS/firefox-bin';

    if (-e $default_firefox) {
        return $default_firefox
    }
    else {
        return which('firefox-bin');
    }
}

sub _unix_path {
    # TODO: maybe which('firefox3'), which('firefox2') ?
    return which('firefox') || '/usr/bin/firefox';
}

sub path {
    my $path;
    if ($^O eq 'MSWin32') {
        $path =_windows_path();
    }
    elsif ($^O eq 'darwin') {
        $path =_darwin_path();
    }
    else {
        $path = _unix_path;
    }

    if (not -x $path) {
        die $path . ' is not an executable file.';
    }

    return $path;
}

1;