blob: f2b6a519b1d7c56ea0667d2f4a6235f5a1de2775 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
use 5.028;
use strict;
use warnings;
use lib "$ENV{HOME}/src/dotfiles/perl5";
use Local::MrRepo;
die 'not a git repo root' unless -e '.git';
my $mr_repo = Local::MrRepo::new_repo('.');
$mr_repo->update();
die "couldn't update repo" unless $mr_repo->updated;
my $issues = $mr_repo->review();
exit 1 if $issues;
|