.lib/perl5/Autofetch.pm

Wed, 14 Feb 2018 12:22:19 -0500

author
Meredith Howard <mhoward@roomag.org>
date
Wed, 14 Feb 2018 12:22:19 -0500
changeset 677
15d353917450
parent 676
1b5b084bccbb
child 678
4c569c2420f1
permissions
-rw-r--r--

try using autofetch

package Autofetch;

use strict;
use warnings;
use 5.010;

sub fetch {
  my ($path, $module) = @_;
  system 'cpanm', -nq, -l => $path, $module;
}

sub cachepath {
  $ENV{HOME} . '/.cache/lib/' . ($_[0] =~ y|/ |-_|r);
}

sub modulefy {
  $_[0] =~ s/\.pm$//r =~ s|/|::|gr;
}

push @INC, sub {
  my (undef, $file) = @_;
  state $path = cachepath($0);

  fetch($path, modulefy($file));

  return IO::File->new($path . '/lib/perl5/' . $file);
};
  
1;

mercurial