File Coverage

blib/lib/XT/Manager/Command.pm

Criterion	Covered	Total	%
statement	17	25	68.0
branch	0	8	0.0
condition			n/a
subroutine	6	11	54.5
pod	1	3	33.3
total	24	47	51.0

package XT::Manager::Command;

use 5.008003;
use strict;

BEGIN {
	$XT::Manager::Command::AUTHORITY = 'cpan:TOBYINK';
	$XT::Manager::Command::VERSION   = '0.006';
}

use base qw/App::Cmd::Command/;

use XT::Manager::API;
use Cwd;

sub opt_spec
{
	my ($self) = @_;
	return (
		[
			"repo|R=s",
			sprintf("custom xt repository path [default: %s]", $self->_default_repo),
			{ default => $self->_default_repo },
		],
		[
			"xtdir|X=s",
			sprintf("local xt directory [default: %s]", $self->_default_xtdir),
			{ default => $self->_default_xtdir },
		],
	);
}

sub _default_repo
{
	defined $ENV{PERL_XT_MANAGER_DIR}
		? $ENV{PERL_XT_MANAGER_DIR}
		: "$ENV{HOME}/perl5/xt";
}

sub _default_xtdir
{
	(cwd =~ m{[\\\/]xt$}) ? '.' : 'xt';
}

sub get_repository
{
	my ($self, $opts) = @_;
	return "XT::Manager::Repository"->new(
		dir => (defined $opts->{repo} ? $opts->{repo} : $self->_default_repo),
	);
}

sub get_xtdir
{
	my ($self, $opts) = @_;
	return "XT::Manager::XTdir"->new(
		dir => (defined $opts->{xtdir} ? $opts->{xtdir} : $self->_default_xtdir),
	);
}

__PACKAGE__
__END__