File Coverage

blib/lib/Minilla/Release/CheckOrigin.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 24 66.6


line stmt bran cond sub pod time code
1             package Minilla::Release::CheckOrigin;
2 1     1   954 use strict;
  1         2  
  1         28  
3 1     1   4 use warnings;
  1         2  
  1         35  
4 1     1   5 use utf8;
  1         2  
  1         5  
5 1     1   22 use Minilla::Logger;
  1         2  
  1         154  
6              
7             sub run {
8 0     0 0   my ($self, $project, $opts) = @_;
9              
10 0           my $remotes = `git remote`;
11 0 0         if ($remotes !~ /^origin$/m) {
12 0           errorf("No git remote named origin.\n");
13             }
14             }
15              
16             1;
17