"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/ModPerl-Registry/t/cgi-bin/perlrun_decl.pm" (5 Oct 2019, 614 Bytes) of package /linux/www/apache_httpd_modules/mod_perl-2.0.11.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "perlrun_decl.pm": 2.0.8_vs_2.0.9.

    1 # please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
    2 package perlrun_decl;
    3 
    4 use warnings;
    5 use strict;
    6 
    7 use base qw(Exporter);
    8 our @EXPORT = qw(decl_proto);
    9 
   10 # this BEGIN block is called only once, since this module doesn't get
   11 # removed from %INC after it was loaded
   12 BEGIN {
   13     # use an external package which will persist across requests
   14     $MyData::blocks{perlrun_decl}++;
   15 }
   16 
   17 sub decl_proto ($;$) { shift }
   18 
   19 # this END block won't be executed until the server shutdown
   20 END {
   21     $MyData::blocks{perlrun_decl}--;
   22 }
   23 
   24 1;