File Coverage

lib/App/TimeTracker/Command/Git.pm

Criterion	Covered	Total	%
statement	17	30	56.6
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod	0	1	0.0
total	23	41	56.1

package App::TimeTracker::Command::Git;
use strict;
use warnings;
use 5.010;

our $VERSION = "3.000";
# ABSTRACT: App::TimeTracker Git plugin

use Moose::Role;
use Git::Repository;

has 'branch' => (
    is            => 'rw',
    isa           => 'Str',
    documentation => 'Git: Branch name',
);
has 'merge' => (
    is            => 'ro',
    isa           => 'Bool',
    documentation => 'Git: Merge after stopping'
);
has 'no_branch' => (
    is            => 'ro',
    isa           => 'Bool',
    documentation => 'Git: Do not create a branch',
    traits        => ['Getopt'],
    cmd_aliases   => [qw/nobranch/],
);
has 'repository' => (
    is         => 'ro',
    isa        => 'Maybe[Git::Repository]',
    lazy_build => 1
);

sub _build_repository {
    my ($self) = @_;
    my $r;
    eval { $r = Git::Repository->new( work_tree => '.' ); };
    return $r if $r;
    say "Warning: No git repository found";
    return;
}

after 'cmd_start' => sub {
    my $self = shift;

    return unless $self->repository;
    return unless $self->branch;
    return if $self->no_branch;

    my $r        = $self->repository;
    my $branch   = $self->branch;
    my %branches = map { s/^\s+//; $_ => 1 } $r->run('branch');

    if ( $branches{ '* ' . $branch } ) {
        say "Already on branch $branch";
        return;
    }

    if ( !$branches{$branch} ) {
        print $r->command( 'checkout', '-b', $branch )->stderr->getlines;
    }
    else {
        print $r->command( 'checkout', $branch )->stderr->getlines;
    }
};

after 'cmd_continue' => sub {
    my $self = shift;

    return unless $self->repository;
    return unless $self->branch;
    return if $self->no_branch;

    print $self->repository->command( 'checkout', $self->branch )
        ->stderr->getlines;
};

after cmd_stop => sub {
    my $self = shift;
    return unless $self->repository;
    return unless $self->merge;

    my $r        = $self->repository;
    my $branch   = $self->branch;
    my %branches = map { s/^\s+//; $_ => 1 } $r->run('branch');

    unless ( $branches{ '* ' . $branch } ) {
        say "Not in branch $branch, won't merge.";
        return;
    }
    my $tags = join( ', ', map { $_->name } @{ $self->tags } ) || '';
    $r->command( 'checkout', 'master' );
    $r->command( "merge", $branch, "--no-ff", '-m',
        "implemented $branch $tags" );
};

sub safe_branch_name { # TODO
    my ($self, $name ) = @_;
    $name =~ s/\W/_/g;
    $name =~ s/_+/_/g;
    $name =~ s/^_//;
    $name =~ s/_$//;
    return $name
}

no Moose::Role;
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

App::TimeTracker::Command::Git - App::TimeTracker Git plugin

=head1 VERSION

version 3.000

=head1 DESCRIPTION

This plugin makes it easier to set up and manage C<git> C<topic
branches>. When starting a new task, you can at the same time start a
new C<git branch>. Also, when stopping, C<tracker> can merge the
C<topic branch> back into C<master>.

See http://nvie.com/posts/a-successful-git-branching-model/ for a good example on how to work with topic branches (and much more!)

=head1 CONFIGURATION

=head2 plugins

Add C<Git> to the list of plugins.

Of course this plugin will only work if the current project is in fact a git repo...

=head1 NEW COMMANDS

none

=head1 CHANGES TO OTHER COMMANDS

=head2 start, continue

=head3 New Options

=head4 --branch cool_new_feature

    ~/perl/Your-Project$ tracker start --branch cool_new_feature
    Started working on Your-Project at 13:35:53
    Switched to branch 'cool_new_feature'

If you pass a branch name via C<--branch>, C<tracker> will create a
new branch (unless it already exists) and then switch into this
branch.

If the branch already existed, it might be out of sync with master. In
this case you should do something like C<git merge master> before
starting to work.

=head4 --nobranch (--no_branch)

    ~/perl/Your-Project$ tracker start --branch another_featur --no_branch

Do not create a new branch, even if C<--branch> is set. This is only useful if another plugin (eg <RT>) automatically sets C<--branch>.

=head2 stop

=head3 New Options

=head4 --merge

    ~/perl/Your-Project$ tracker stop --merge

After, stopping, merge the current branch back into C<master> (using C<--no-ff>.

TODO: Turn this into a string option, which should be the name of the
branch we want to merge into. Default to C<master> (or something set
in config..)

=head1 AUTHOR

Thomas Klausner <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 - 2019 by Thomas Klausner.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut