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