44 lines
981 B
Perl
44 lines
981 B
Perl
|
package App::Git::IssueManager::Init;
|
||
|
|
#ABSTRACT: class implementing the init command of the GIT IssueManager
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use MooseX::App::Command;
|
||
|
|
extends qw(App::Git::IssueManager);
|
||
|
|
use Git::RepositoryHL;
|
||
|
|
use Git::IssueManager;
|
||
|
|
use Git::IssueManager::Issue;
|
||
|
|
|
||
|
|
use Term::ANSIColor;
|
||
|
|
use Try::Tiny;
|
||
|
|
|
||
|
|
|
||
|
|
command_short_description 'initialize IssueManager in the current git repository';
|
||
|
|
command_usage 'git issue init -t TST';
|
||
|
|
|
||
|
|
option 'tag' => (
|
||
|
|
is => 'ro',
|
||
|
|
isa => 'Str',
|
||
|
|
required => 1,
|
||
|
|
documentation => q[the tag to prepend in front of issue ids (eg. TST-ab5436fe, TST is the tag)],
|
||
|
|
cmd_aliases => [qw(t)]
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
sub run
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
my $manager = Git::IssueManager->new(repository=>Git::RepositoryHL->new(git_dir=> "."));
|
||
|
|
if (!$manager->ready)
|
||
|
|
{
|
||
|
|
$manager->init($self->tag);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
die("IssueManager already initialized");
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|