Re: How to dynamically invoke one of several similarly named modules


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: How to dynamically invoke one of several similarly named modules

by awncorp (Acolyte)

on Aug 24, 2022 at 20:41 UTC ( [id://11146385]=note: print w/replies, xml )

Need Help??

in reply to How to dynamically invoke one of several similarly named modules

Fwiw

package main;

use Venus::Match;
use Venus::Space;

my $name = 'lonprod';
my $match = Venus::Match->new($name);

$match->just('lonprod')->then('App:London::Production::LogTable')
$match->just('parprod')->then('App::Paris::Production::LogTable')
$match->just('lontest')->then('App::London::Test::LogTable')
$match->just('partest')->then('App::Paris::Test::LogTable')

my $result = Venus::Space->new($match->result)->build->find_or_create(
  {
    column1 => $data{"column1"},
    column2 => $data{"column2}
  }
);
[download]

"I am inevitable." - Thanos