File Coverage

lib/Dist/Zilla/Plugin/CSJEWELL/DotFileFix.pm
Criterion Covered Total %
statement 14 20 70.0
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 19 29 65.5


line stmt bran cond sub pod time code
1             package Dist::Zilla::Plugin::CSJEWELL::DotFileFix;
2              
3 1     1   1884 use 5.008003;
  1         5  
4 1     1   7 use Moose;
  1         3  
  1         11  
5 1     1   8191 use File::Copy qw(move);
  1         3  
  1         82  
6 1     1   934 use English qw(-no_match_vars);
  1         4560  
  1         8  
7             with 'Dist::Zilla::Role::AfterMint';
8              
9             our $VERSION = '0.993';
10              
11             sub after_mint {
12 0     0 0   my ($self, $hash) = @_;
13              
14 0           my $root = $hash->{'mint_root'};
15              
16 0           my $source_file = $root->child('_gitignore')->stringify();
17 0           my $dest_file = $root->child('.gitignore')->stringify();
18              
19 0 0         move($source_file, $dest_file)
20             or $self->log("Could not move _gitignore to .gitignore: $OS_ERROR");
21              
22 0           return 1;
23             } ## end sub after_mint
24              
25             __PACKAGE__->meta->make_immutable;
26 1     1   594 no Moose;
  1         3  
  1         13  
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =head1 NAME
34              
35             Dist::Zilla::Plugin::CSJEWELL::DotFileFix - Fix the .gitignore file.
36              
37             =head1 VERSION
38              
39             This document describes Dist::Zilla::Plugin::CSJEWELL::DotFileFix version 0.993.
40              
41             =head1 DESCRIPTION
42              
43             This plugin renames the _gitignore file in the source to .gitignore.
44              
45             =for Pod::Coverage after_mint
46              
47             =head1 AUTHOR
48              
49             Curtis Jewell <CSJewell@cpan.org>
50              
51             =head1 SEE ALSO
52              
53             L<Dist::Zilla::BeLike::CSJEWELL|Dist::Zilla::BeLike::CSJEWELL>
54              
55             =head1 LICENSE AND COPYRIGHT
56              
57             Copyright (c) 2010, 2021 Curtis Jewell C<< CSJewell@cpan.org >>.
58              
59             This module is free software; you can redistribute it and/or
60             modify it under the same terms as Perl itself, either version
61             5.8.1 or any later version. See L<perlartistic|perlartistic>
62             and L<perlgpl|perlgpl>.
63              
64             The full text of the license can be found in the
65             LICENSE file included with this module.
66              
67             =head1 DISCLAIMER OF WARRANTY
68              
69             BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
70             FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
71             OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
72             PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
73             EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
74             WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
75             ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
76             YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
77             NECESSARY SERVICING, REPAIR, OR CORRECTION.
78              
79             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
80             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
81             REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
82             LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
83             OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
84             THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
85             RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
86             FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
87             SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
88             SUCH DAMAGES.
89              
90             =cut
91