#! perl

# this implements the mapscript connectable

package safe::mapscript;

use strict qw(subs vars);

our ($self, $activator, $state);

package cf::mapscript;

use strict qw(subs vars);

sub activate($$$) {
   ($self, $activator, $state) = @_;

   warn "$self->{msg} $self->{on_activate}\n";#d#

   (
      $self->{on_activate} ||= cf::safe_eval
         "package mapscript; sub {\n"
         . "#line 1 '" . ($self->debug_desc) . "'\n"
         . $self->msg
         . "\n}"
      or sub { }
   )->();
}

1;