File Coverage

blib/lib/Ixchel/Actions/sneck_install.pm

Criterion	Covered	Total	%
statement	17	41	41.4
branch	0	4	0.0
condition			n/a
subroutine	6	10	60.0
pod	2	4	50.0
total	25	59	42.3

package Ixchel::Actions::sneck_install;

use 5.006;
use strict;
use warnings;
use Ixchel::functions::install_cpanm;
use Ixchel::functions::perl_module_via_pkg;
use base 'Ixchel::Actions::base';

=head1 NAME

Ixchel::Actions::sneck_install - Installs Sneck using packages as much as possible.

=head1 VERSION

Version 0.1.0

=cut

our $VERSION = '0.1.0';

=head1 CLI SYNOPSIS

ixchel -a sneck_install

=head1 CODE SYNOPSIS

    use Data::Dumper;

    my $results=$ixchel->action(action=>'sneck_install', opts=>{});

    if ($results->{ok}) {
        print $results->{status_text};
    }else{
        die('Action errored... '.joined("\n", @{$results->{errors}}));
    }

=head1 RESULT HASH REF

    .errors :: A array of errors encountered.
    .status_text :: A string description of what was done and the results.
    .ok :: Set to zero if any of the above errored.

=cut

sub new_extra { }

sub action_extra {
	my $self = $_[0];

	$self->status_add( status => 'Installing Monitoring::Sneck depends via packages' );

	my @depends = ( 'JSON', 'File::Slurp', 'MIME::Base64', 'Pod::Usage' );

	$self->status_add( status => 'Perl Depends: ' . join( ', ', @depends ) );

	my @installed;
	my @failed;

	foreach my $depend (@depends) {
		my $status;
		$self->status_add( status => 'Trying to install ' . $depend . ' as a package...' );
		eval { $status = perl_module_via_pkg( module => $depend ); };
		if ($@) {
			push( @failed, $depend );
			$self->status_add( status => $depend . ' could not be installed as a package' );
		} else {
			push( @installed, $depend );
			$self->status_add( status => $depend . ' could not be installed as a package' );
		}
	} ## end foreach my $depend (@depends)

	my $output = `cpanm Monitoring::Sneck 2>&1`;
	if ( $? != 0 ) {
		$self->status_add(
			status => "Failed to install Sneck via cpanm ... cpanm Monitoring::Sneck exited non-zero\n" . $output,
			error  => 1
		);
	} else {
		$self->status_add( status => 'Sneck installed' );
	}

	$self->status_add( status => 'Installed via Packages: ' . join( ', ', @installed ) );
	$self->status_add( status => 'Needed via cpanm: ' . join( ', ', @failed ) );

	return undef;
} ## end sub action_extra

sub short {
	return 'Installs Sneck using packages as much as possible.';
}

sub opts_data {
	return '
';
}

1;