File Coverage

blib/lib/App/Goto.pm

Criterion	Covered	Total	%
statement	43	49	87.7
branch	9	14	64.2
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	58	70	82.8

package App::Goto;

use strict;
use v5.12;
our $VERSION = '0.07';

use Moo;

has args        => ( is => 'ro', required => 1 );
has config      => ( is => 'ro', required => 1 );
has error       => ( is => 'rw', default => sub { 'Unknown error' } );
has is_success  => ( is => 'rw', default => sub { 1 } );
has cmd         => ( is => 'rw' );
has nick        => ( is => 'rw', default => sub { '' } );
has host        => ( is => 'rw', default => sub { '' } );

sub BUILD {
    my $self = shift;
    my ($server, $command) = @{$self->args};

    my $hostname = $self->_get_host($server);
    return unless $hostname;

    my $remote_command = '';
    if ($command) {
        $remote_command = $self->_get_command($command);
        }

    $self->cmd( "ssh $hostname $remote_command" );
    }

sub _get_host {
    my ($self, $name) = @_;
    # Get known hosts from config
    my $hosts = $self->config->{hosts};
    # Get the first hostname from a sorted list of hosts
    my ($hostname) = grep { $_ =~ m#^$name# } sort keys %{$hosts};
    unless ($hostname) {
        $self->is_success(0);
        $self->error('Cannot find hostname in config') unless $hostname;
        return;
        }
    # Store the retrieved nick&host names for possible later use
    $self->nick($hostname);
    $self->host($hosts->{$hostname});
    # Get the right server details for the found hostname
    return $hosts->{$hostname};
    }

sub _get_command {
    my ($self, $cmd) = @_;
    my $config      = $self->config;
    # If they supplied one, separate out the modifier
    my $modifier;
    ($cmd, undef, $modifier) = $cmd =~ m#^([^/]*)(/(.*))?#;

    # Check if the server has its own instance of this command defined.
    # If so, use it. If not, use the generic version.
    my $command;
    if (my $custom = $config->{$self->nick.'_commands'}{$cmd}) {
        $command = $custom;
        }
    else {
        $command = $config->{commands}{$cmd};
        }

    unless ($command) {
        $self->is_success(0);
        $self->error('Command not recognised');
        return;
        }

    # Replace command's modifier placeholder with supplied modifier
    # (if supplied) or nothing
    $modifier = '' unless $modifier;
    my $nick = $self->nick;
    my $host = $self->host;
    $command =~ s#{{mod}}#$modifier#;
    $command =~ s#{{nick}}#$nick#;
    $command =~ s#{{host}}#$host#;

    # If we have a command, tell SSH to execute it remotely via '-t'
    return "-t $command";
    }

1;
__END__