File Coverage

blib/lib/App/cpanmigrate.pm

Criterion	Covered	Total	%
statement	6	29	20.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	7	28.5
pod	0	5	0.0
total	8	50	16.0

package App::cpanmigrate;
use strict;
use warnings;
our $VERSION = '0.04';

local $SIG{__DIE__} = sub {
    my $msg = shift;
    warn "$msg\n";
    exit 1;
};

sub new {
    my ($class, $new_version, %args) = @_;

    ($new_version && $new_version =~ /^perl/)
        or __PACKAGE__->usage();

    return bless {
        args    => { %args },
        version => $new_version,
    }, $class;
}

sub run {
    my $self = shift;

    $self->detect_shell;
    my $command = $self->fetch_script;

    exec $self->{shell}{path}, @{$self->{shell}{opts}}, $command;
}

sub fetch_script {
    my $self = shift;
    my $shell = $self->{shell};

    require "App/cpanmigrate/$shell->{name}.pm"; ## no critic

    my $cmd = "App::cpanmigrate::$shell->{name}"->script($self->{version});
    $cmd =~ s/\s+/ /g;

    return $cmd;
}

sub usage {
    die <<"USAGE";
Usage:
    $0 [perl-version]
USAGE
}

sub detect_shell {
    my $self = shift;

    $self->{shell}{path} = $ENV{SHELL};

    if ($self->{shell}{path} =~ /(bash|zsh)/) {
        $self->{shell}{name} = 'bash';
        $self->{shell}{opts} = [ '-c' ];

    } elsif ($self->{shell}{path} =~ /(csh)/) {
        $self->{shell}{name} = 'csh';
        $self->{shell}{opts} = [ '-c' ];

    } else {
        $self->{shell}{name} = 'unknown';
    }
}

1;
__END__