1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
#
# This file is part of Dist-Zilla-Plugin-Git
#
# This software is copyright (c) 2009 by Jerome Quelin.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use 5.008;
use strict;
use warnings;
package Dist::Zilla::Plugin::Git::Push;
# ABSTRACT: Push current branch
our $VERSION = '2.052';
use Moose;
use Types::Standard qw{ ArrayRef Str Bool };
use namespace::autoclean;
with 'Dist::Zilla::Role::BeforeRelease',
'Dist::Zilla::Role::AfterRelease';
with 'Dist::Zilla::Role::Git::Repo',
'Dist::Zilla::Role::GitConfig';
sub mvp_multivalue_args { qw(push_to) }
sub _git_config_mapping { +{
push_to => '%{remote}s %{local_branch}s:%{remote_branch}s',
} }
# -- attributes
has remotes_must_exist => ( is => 'ro', isa=>Bool, default=>1 );
has push_to => (
is => 'ro',
isa => ArrayRef[Str],
lazy => 1,
default => sub { [ qw(origin) ] },
);
around dump_config => sub
{
my $orig = shift;
my $self = shift;
my $config = $self->$orig;
$config->{+__PACKAGE__} = {
push_to => $self->push_to,
remotes_must_exist => $self->remotes_must_exist ? 1 : 0,
blessed($self) ne __PACKAGE__ ? ( version => $VERSION ) : (),
};
return $config;
};
sub before_release {
my $self = shift;
return unless $self->remotes_must_exist;
my %valid_remote = map { $_ => 1 } $self->git->remote;
my @bad_remotes;
# Make sure the remotes we'll be pushing to exist
for my $remote_spec ( @{ $self->push_to } ) {
(my $remote = $remote_spec) =~ s/\s.*//s; # Discard branch (if specified)
if ($remote =~ m![:/]!) {
# Appears to be a URL or path, don't check it
$self->log("Will push to $remote (not checked)");
} else {
# Named remotes must exist
push @bad_remotes, $remote unless $valid_remote{$remote};
}
}
$self->log_fatal("These remotes do not exist: @bad_remotes")
if @bad_remotes;
}
sub after_release {
my $self = shift;
my $git = $self->git;
# requires git 2.4.1; see "git push --follow-tags"
$git->config('push.followTags', 'true');
# push everything on remote branch
for my $remote ( @{ $self->push_to } ) {
$self->log("pushing to $remote");
my @remote = split(/\s+/,$remote);
if (@remote == 1) {
# Newer versions of Git may not push the current branch automatically.
# Append the current branch since the remote didn't specify a branch.
my $branch = $self->current_git_branch;
unless (defined $branch) {
$self->log("skipped push to @remote (can't determine branch to push)");
next;
}
push @remote, $branch;
}
# push.followTags is set, so this also pushes the release tag that was
# likely just created by [Git::Tag]
$self->log_debug($_) for $git->push( @remote );
}
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::Git::Push - Push current branch
=head1 VERSION
version 2.052
=head1 SYNOPSIS
In your F<dist.ini>:
[Git::Push]
push_to = origin ; this is the default
push_to = origin HEAD:refs/heads/released ; also push to released branch
remotes_must_exist = 1 ; this is the default
=head1 DESCRIPTION
Once the release is done, this plugin will push the current git branch to
the remote, with the associated tags.
The plugin accepts the following options:
=over 4
=item *
push_to - the name of the a remote to push to. The default is F<origin>.
This may be specified multiple times to push to multiple repositories.
=item *
remotes_must_exist - if true, then Git::Push checks before a release
to ensure that all named remotes specified in C<push_to> are
configured in your repo. The default is true. Remotes specified as a
URL or path are not checked, but will produce a
C<Will push to %s (not checked)> message.
=back
=for Pod::Coverage after_release
before_release
mvp_multivalue_args
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Dist-Zilla-Plugin-Git>
(or L<bug-Dist-Zilla-Plugin-Git@rt.cpan.org|mailto:bug-Dist-Zilla-Plugin-Git@rt.cpan.org>).
There is also a mailing list available for users of this distribution, at
L<http://dzil.org/#mailing-list>.
There is also an irc channel available for users of this distribution, at
L<C<#distzilla> on C<irc.perl.org>|irc://irc.perl.org/#distzilla>.
=head1 AUTHOR
Jerome Quelin
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2009 by Jerome Quelin.
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
|
