#!/usr/bin/env perl
use 5.12.0;
use Getopt::Long;
use Git::Release;
use lib 'lib';
my $re = Git::Release->new;
$|++;

my %tracking = $re->tracking_list;
my $w = 24;
map { if(length($_) > $w) { $w = length($_) }  } keys %tracking;
for my $ref ( keys %tracking ) {
    printf "%${w}s is tracking %s\n", $ref , ($tracking{ $ref } || '(none)')
}
