lib/cf/mapscript.pm

#! 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;
Revision:	1.1
Committed:	Thu Jan 8 03:03:24 2009 UTC (17 years, 9 months ago) by root
Branch:	MAIN
Log Message:	connected => shstr, beginning of mapscript
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# this implements the mapscript connectable
4
5			package safe::mapscript;
6
7			use strict qw(subs vars);
8
9			our ($self, $activator, $state);
10
11			package cf::mapscript;
12
13			use strict qw(subs vars);
14
15			sub activate($$$) {
16			($self, $activator, $state) = @_;
17
18			warn "$self->{msg} $self->{on_activate}\n";#d#
19
20			(
21			$self->{on_activate} \|\|= cf::safe_eval
22			"package mapscript; sub {\n"
23			. "#line 1 '" . ($self->debug_desc) . "'\n"
24			. $self->msg
25			. "\n}"
26			or sub { }
27			)->();
28			}
29
30			1;