view src/meta.pm @ 6:958c69a33b37 default tip

fix presen
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 26 May 2021 14:04:14 +0900
parents 67e6ca3c7e6c
children
line wrap: on
line source

package meta;
use strict;
use warnings;

sub replaceMeta {
  return (
    [qr/PhilsImpl/ => \&generateMcMeta],
  );
}

sub generateRandomMeta {
  my ($context, $next) = @_;
  return "goto random($context, $next);";
}

sub generateMcMeta {
  my ($context, $next) = @_;
  return "goto mcMeta($context, $next);";
}

1;