File Coverage

blib/lib/Anego/Task/GitLog.pm
Criterion Covered Total %
statement 18 23 78.2
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 24 31 77.4


line stmt bran cond sub pod time code
1             package Anego::Task::GitLog;
2 1     1   4 use strict;
  1         2  
  1         22  
3 1     1   4 use warnings;
  1         2  
  1         17  
4 1     1   4 use utf8;
  1         2  
  1         4  
5              
6 1     1   16 use Anego::Config;
  1         1  
  1         13  
7 1     1   3 use Anego::Git;
  1         2  
  1         40  
8 1     1   5 use Anego::Logger;
  1         1  
  1         140  
9              
10             sub fetch {
11 0     0 0   my $config = Anego::Config->load;
12             my @revs = map { +{
13 0           hash => $_->[0],
14             message => $_->[1],
15             } } map {
16 0           [ split /\t/, $_ ]
  0            
17             } git_log("--pretty=format:%h\t%s", $config->schema_path);
18 0           return \@revs;
19             }
20              
21             1;