view release on metacpan or  search on metacpan

lib/JSPL/Controller.pm  view on Meta::CPAN

213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
package
    JSPL::PerlSub; # Hide from PAUSE
 
sub _const_sub { # Method call
    my $code = $_[1];
    my $frame = $] > 5.009 ? 1 : 2;
    JSPL::Context->check_privileges;
    my($package, $file, $line, $hints, $bitmask) = (caller $frame)[0,1,2,8,9];
    # warn sprintf("SBB: $package,$file,$line,'$code', H: %x, BM: %s\n", $hints,$bitmask);
    my $cr = eval join("\n",
        qq|package $package;BEGIN {\$^H=$hints;\${^WARNING_BITS}="$bitmask";}|,
        "#line $line $file",
        "sub {$code}") or Carp::croak("Can't compile: $@");
    return $cr;
}
 
sub prototype {}
our $wantarray = 1;
 
sub toString {
    my $code = shift || $JSPL::This;