Yaswi with modules

#! /usr/bin/perl

use strict;
use warnings;

use Language::Prolog::Types::overload;
use Language::Prolog::Yaswi qw(:query :load :context);
use Language::Prolog::Sugar
 functors => { give_me_sth => 'give_me_sth' },
 vars     => [qw( Answer )] ;

swi_use_modules ( "./a.swipl", "./b.swipl" );

sub yaswi_give_me_sth {
  local $swi_module     = 'a';     ### or 'b'

  # Variante 1
  swi_set_query( give_me_sth(2, Answer) );
  my $answer = swi_var(Answer) if swi_next;
  swi_cut if swi_next;
  print "Answer: $answer \n";
}

yaswi_give_me_sth();

• Yaswi with modules by Steffen Schwigon