Generate META files if not included

Resolves skaji#230

lib/App/cpm/Worker/Installer.pm

@@ -140,6 +140,18 @@ sub enable_prebuilt {
  $self->{prebuilt} && !$self->{prebuilt}->skip($uri) && $TRUSTED_MIRROR->($uri);
 }
 
+sub mymeta2meta {
+ my ($input_file, $output_file) = @_;
+ open my $in, '<', $input_file or die "Cannot open $input_file: $!";
+ open my $out, '>', $output_file or die "Cannot open $output_file: $!";
+ while (my $line = <$in>) {
+ $line =~ s/(.*dynamic_config.* )0/$1 1/; # Apply the substitution
+ print $out $line; # Write the modified line to the output file
+ }
+ close $in;
+ close $out;
+}
+
 sub fetch {
  my ($self, $task) = @_;
  my $guard = pushd;
@@ -213,6 +225,13 @@ sub fetch {
 
  chdir $dir or die;
 
+ if ((! -f 'META.json' || ! -f 'META.yml') && (-f 'Makefile.PL' || -f 'Build.PL')) {
+ $self->{logger}->log("Configuring distribution via Makefile.PL or Build.PL");
+ system('perl Makefile.PL') == 0 or system('perl Build.PL') == 0 or die "Failed to run Makefile.PL or Build.PL: $!";
+ mymeta2meta('MYMETA.json', 'META.json');
+ mymeta2meta('MYMETA.yml', 'META.yml');
+ }
+
  my $meta = $self->_load_metafile($distfile, 'META.json', 'META.yml');
  if (!$meta) {
  $self->{logger}->log("Distribution does not have META.json nor META.yml");