Re: Apache::Registry family re-design

[raptor]

| * __DATA__ and __END__ tokens: should read the file till these tokens
|   are met and compile only the code that has been read so far.
]- I'm not aware of the whole process of how Apache::Registry works, but can
we just do this :

Apache::Registry
===========
....
my $sub = $r->slurp_filename;
$sub =~ s/^(.*?)(__END__|__DATA__)\n.*$/$1/;
.....

One more thing about closures instead of :
.....
my $eval = join ( '', qq{
    package $package;
    use Apache qw(exit);
    sub handler {
        $line
        $sub
    };
};


use something like this :

my $eval = join ( '', qq{
    package $package;
    use Apache qw(exit);
    $sub
    sub handler {
        $line
        $subname($r);
   };
};

just of my head... may have error.. or may don't work at all..

=====
iVAN
[EMAIL PROTECTED]
=====


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]