remove some whitespace
Kjetil Kjernsmo
6 years ago
11 | 11 | use Git::Sub qw(tag status log); |
12 | 12 | use Types::Standard 'Bool'; |
13 | 13 | use namespace::autoclean; |
14 | ||
14 | ||
15 | 15 | has source_control_is_git => ( |
16 | 16 | is => "ro", |
17 | 17 | isa => Bool, |
18 | 18 | lazy => 1, |
19 | 19 | builder => "_build_source_control_is_git", |
20 | 20 | ); |
21 | ||
21 | ||
22 | 22 | sub _build_source_control_is_git { |
23 | 23 | my $self = shift; |
24 | 24 | !! $self->rootdir->child(".git")->is_dir; |
25 | 25 | } |
26 | ||
26 | ||
27 | 27 | after BUILD => sub { |
28 | 28 | my $self = shift; |
29 | 29 | return unless $self->source_control_is_git; |