Help for this page

Select Code to Download

Select or download this

ModPerl::RegistryCooker::get_mark_line     ()
sub get_mark_line {
    my $self = shift;
    $ModPerl::Registry::MarkLine ? "\n#line 1 $self->{FILENAME}\n" : "
+";
}

Select or download this

    my $eval = join '',
                    'package ',
...
                    $line, <------------------------------
                    ${ $self->{CODE} },
                    "\n}";