File Coverage

lib/Dist/Zilla/UtilRole/MaybeGit.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1 1     1   1363 use 5.008; # utf8
  1         4  
  1         45  
2 1     1   6 use strict;
  1         1  
  1         43  
3 1     1   6 use warnings;
  1         2  
  1         34  
4 1     1   974 use utf8;
  1         10  
  1         8  
5              
6             package Dist::Zilla::UtilRole::MaybeGit;
7              
8             our $VERSION = '0.004000';
9              
10             # ABSTRACT: A role to make adding a ->git method easy, and low-complexity
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14 1     1   475 use Moose::Role qw( with has );
  0            
  0            
15             with 'Dist::Zilla::UtilRole::MaybeZilla';
16              
17             has 'git' => ( is => ro =>, isa => Object =>, lazy_build => 1 );
18              
19             sub _build_git {
20             my ($self) = @_;
21             require Dist::Zilla::Util::Git::Wrapper;
22             return Dist::Zilla::Util::Git::Wrapper->new( zilla => $self->zilla );
23             }
24              
25             no Moose::Role;
26             1;
27              
28             __END__
29              
30             =pod
31              
32             =encoding UTF-8
33              
34             =head1 NAME
35              
36             Dist::Zilla::UtilRole::MaybeGit - A role to make adding a ->git method easy, and low-complexity
37              
38             =head1 VERSION
39              
40             version 0.004000
41              
42             =head1 AUTHOR
43              
44             Kent Fredric <kentfredric@gmail.com>
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2014 by Kent Fredric <kentfredric@gmail.com>.
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut