#!/usr/bin/env perl

# should work for repos not properly registered with mr as uses Git repo
# subclasses

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';

unless (grep "--skip-update", @ARGV) {
    system qw|git pull-safe|;
    $! and die "failed to update repo";
}

# this picks between the git and git-annex repo subclasses
my $mr_repo = Local::MrRepo::new_repo('.');

my $issues = $mr_repo->review();
exit 1 if $issues;