/usr/share/perl5/Dist/Zilla/Plugin/Git/Init.pm is in libdist-zilla-plugin-git-perl 1.113560-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #
# 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.010;
use strict;
use warnings;
package Dist::Zilla::Plugin::Git::Init;
{
$Dist::Zilla::Plugin::Git::Init::VERSION = '1.113560';
}
# ABSTRACT: initialize git repository on dzil new
our %transform = (
lc => sub { lc shift },
uc => sub { uc shift },
'' => sub { shift },
);
use Moose;
use Git::Wrapper;
use String::Formatter method_stringf => {
-as => '_format_string',
codes => {
n => sub { "\n" },
N => sub { $transform{$_[1] || ''}->( $_[0]->zilla->name ) },
},
};
with 'Dist::Zilla::Role::AfterMint';
has commit_message => (
is => 'ro',
isa => 'Str',
default => 'initial commit',
);
has remotes => (
is => 'ro',
isa => 'ArrayRef[Str]',
default => sub { [] },
);
has config_entries => (
is => 'ro',
isa => 'ArrayRef[Str]',
default => sub { [] },
);
sub mvp_multivalue_args { qw(config_entries remotes) }
sub mvp_aliases { return { config => 'config_entries', remote => 'remotes' } }
sub after_mint {
my $self = shift;
my ($opts) = @_;
my $git = Git::Wrapper->new($opts->{mint_root});
$self->log("Initializing a new git repository in " . $opts->{mint_root});
$git->init;
foreach my $configSpec (@{ $self->config_entries }) {
my ($option, $value) = split ' ', _format_string($configSpec, $self), 2;
$self->log_debug("Configuring $option $value");
$git->config($option, $value);
}
$git->add($opts->{mint_root});
$git->commit({message => _format_string($self->commit_message, $self)});
foreach my $remoteSpec (@{ $self->remotes }) {
my ($remote, $url) = split ' ', _format_string($remoteSpec, $self), 2;
$self->log_debug("Adding remote $remote as $url");
$git->remote(add => $remote, $url);
}
}
1;
=pod
=head1 NAME
Dist::Zilla::Plugin::Git::Init - initialize git repository on dzil new
=head1 VERSION
version 1.113560
=head1 SYNOPSIS
In your F<profile.ini>:
[Git::Init]
commit_message = initial commit ; this is the default
remote = origin git@github.com:USERNAME/%{lc}N.git ; no default
config = user.email USERID@cpan.org ; there is no default
=head1 DESCRIPTION
This plugin initializes a git repository when a new distribution is
created with C<dzil new>.
=head2 Plugin options
The plugin accepts the following options:
=over 4
=item * commit_message - the commit message to use when checking in
the newly-minted dist. Defaults to C<initial commit>.
=item * config - a config setting to make in the repository. No
config entries are made by default. A setting is specified as
C<OPTION VALUE>. This may be specified multiple times to add multiple entries.
=item * remote - a remote to add to the repository. No remotes are
added by default. A remote is specified as C<NAME URL>. This may be
specified multiple times to add multiple remotes.
=back
=head2 Formatting options
You can use the following codes in C<commit_message>, C<config>, or C<remote>:
=over 4
=item C<%n>
A newline.
=item C<%N>
The distribution name. You can also use C<%{lc}N> or C<%{uc}N> to get
the name in lower case or upper case, respectively.
=back
=for Pod::Coverage after_mint mvp_aliases mvp_multivalue_args
=head1 AUTHOR
Jerome Quelin
=head1 COPYRIGHT AND LICENSE
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
__END__
|