Help for this page

Select Code to Download


  1. or download this
      <MTPerl>
  require "mutate.pl";
  mutate("<$MTEntryBody$>");
  </MTPerl>
  2. or download this
      $ctx->register_handler(Perl => [ \&_hdlr_perl, 1 ]);
  3. or download this
      sub _hdlr_perl {
     my($ctx, $args) = @_;
     my $tokens = $ctx->stash('tokens');
...
     return $@ if $@;
     $res;
  }