view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/docs.check/19
t/docs.check/3
t/docs.check/4
t/docs.check/5
t/docs.check/6
t/docs.check/7
t/docs.check/8
t/docs.check/9
t/docs/5.cgi
t/docs/bare.ssi
t/docs/escape.ssi
t/docs/exec_cmd.ssi
t/docs/file.ssi
t/docs/flastmod.ssi
t/docs/if.ssi
t/docs/if2.ssi
t/docs/incl
t/docs/incl.ssi
t/docs/incl2
t/docs/incl_rel.ssi
t/docs/incl_rel2.ssi

lib/Apache/SSI.pm  view on Meta::CPAN

#
#    while (1) {
#
#        if ( /\G([^\\\$]+)/gc ) {
#            $out .= $1;
#            
#        } elsif ( /\G(\\\\)+/gc ) {
#            $out .= '\\' x (length($1)/2);
#            
#        } elsif ( /\G\\([^\$])/gc ) {
#            $out .= &escape_char($1);
#            
#        } elsif ( /\G\$(\w+)/gc ) {
#            $out .= &lookup($1);
#        
#        } elsif ( /\G\$\{(\w+)\}/gc ) {
#            $out .= &lookup($1);
#        
#        } else {
#            last;
#        }

t/real.t  view on Meta::CPAN

   4  => '/docs/file.ssi',
   5  => '/docs/kid.ssik',
   6  => '/docs/virtual.ssi',
   7  => '/docs/incl_rel.ssi',
   8  => '/docs/incl_rel2.ssi',
   9  => '/docs/set_var.ssi',
   10 => '/docs/xssi.ssi',
   11 => '/docs/include_cgi.ssi/path?query',
   12 => '/docs/if.ssi',
   13 => '/docs/if2.ssi',
   14 => '/docs/escape.ssi',
   15 => '/docs/exec_cmd.ssi',
   16 => '/docs/kid2.ssik',
   17 => '/docs/flastmod.ssi',
   18 => '/docs/virtual.ssif',
   19 => '/docs/set_var2.ssi?query',
  );

my %special_tests = 
  (
   17 => sub {my $year = (localtime)[5]+1900; shift->content =~ /Year: $year/},