#! perl

# untested dm support extension

use Storable qw/freeze thaw/;

#cf::register_extcmd perleval => sub {
#   my ($pl, $indata) = @_;
#
#   my ($token, $evaldata) = split / /, $indata, 2;
#   my ($code, $storablein) = split /\0/, $evaldata, 2;
#
#   unless ($pl->flag (cf::FLAG_WIZ)) {
#      $pl->send ("ext $token");
#      return;
#   }
#
#   my $data = thaw $storablein;
#
#   $pl->send ("ext $token " . freeze eval $code);
#};