recent job detector

recent_job_detector.pl

#!/usr/bin/env perl

use strict;
use warnings;
use String::CamelCase qw(decamelize);
use Getopt::Long;
use List::MoreUtils qw(uniq);

GetOptions('a|app=s', \my $app);

my @changes = @ARGV;
my @tests;
for my $changed (@changes) {
    if ($changed =~ m!t/.+\.t$!) {
        push @tests, $changed;
    } elsif ($changed =~ m!(.+/)?lib/(.+)\.pm$!) {
        my @comps = map { decamelize($_) } split m!/!, $2;
        shift @comps if $comps[0] eq $app;
        my $base = join '/', ($1 || '') . 't', @comps;
        push @tests, glob("${base}.t"), glob("${base}/*.t");
    }
}

print "$_\n" for uniq sort @tests;