what CPAN code did I install when?

When I upgrade my perl, which I do pretty often, the first thing I do is install Task::BeLike::RJBS (by running cpanm rjbs). This installs most of the stuff I’m going to need to do my normal work. Over time, I tend to find that it needs an update, because over the course of the last year or so I started using some new libraries that didn’t get into the bundle. (This will happen less now that I’m using the monthly blead snapshots day to day again, but it’s a real thing.)

I don’t use plenv’s “install everything I had before onto the new one,” because I want to keep track of what I install every time. That means that for the first few days after installing a new perl, I end up having to install some library that’s not there when I go to run some program that I run now and then. When that happens, I don’t want to pull up a notepad and write down what’s missing from my bundle. Instead, I wrote a little program to look at my installation history and show me clusters of installed libraries. After a week or two, I look at the output from this program and consider updating my bundle accordingly.

Here it is:

#!perl
use v5.34.0;
use warnings;

use File::stat;
use Term::ANSIColor;

my @perl_inc = `perl -E 'say for grep { m{/.plenv/versions/} } \@INC'`;
chomp @perl_inc;

my @lines = `find @perl_inc -name MYMETA.json`;
chomp @lines;

my %mtime;

for my $line (@lines) {
  my ($dist) = $line =~ m{/([^/]+)/MYMETA.json\z};
  my $mtime  = stat($line)->mtime;
  $mtime{$dist} = $mtime;
}

my $prev = 0;
for my $dist (sort { $mtime{$a} <=> $mtime{$b} } keys %mtime) {
  my $mtime = $mtime{$dist};
  if ($mtime - $prev > 3600) {
    print "\n";
    printf "%s %s %s\n",
      colored(['bright_cyan'], '==['),
      colored(['bright_yellow'], scalar localtime $mtime),
      colored(['bright_cyan'], ']==');
  }
  $prev = $mtime;
  say "$dist";
}
Written on July 3, 2021
perl   programming