| 
      
            Lines 5-10
          use lib qw( ./lib );
      
      
        Link Here
      
     | 
  
        
          | 5 | 
          use Plack::Middleware::Debug;  | 
          5 | 
          use Plack::Middleware::Debug;  | 
        
        
          | 6 | 
          use Plack::App::Directory;  | 
          6 | 
          use Plack::App::Directory;  | 
        
        
          | 7 | 
           | 
          7 | 
           | 
        
            
               | 
               | 
              8 | 
              #BZ 16520, add timestamps to warnings  | 
            
            
              | 9 | 
              use Log::Log4perl qw(:easy);  | 
            
            
              | 10 | 
              Log::Log4perl->easy_init($WARN);  | 
            
            
              | 11 | 
              my $logger = Log::Log4perl->get_logger(); # use the default logger style  | 
            
            
              | 12 | 
              $SIG{__WARN__} = sub { | 
            
            
              | 13 | 
                  my $message = shift;  | 
            
            
              | 14 | 
                  $logger->warn($message);  | 
            
            
              | 15 | 
              };  | 
            
            
              | 16 | 
               | 
            
        
          | 8 | 
          use CGI qw(-utf8 ); # we will lose -utf8 under plack  | 
          17 | 
          use CGI qw(-utf8 ); # we will lose -utf8 under plack  | 
        
        
          | 9 | 
          { | 
          18 | 
          { | 
        
        
          | 10 | 
              no warnings 'redefine';  | 
          19 | 
              no warnings 'redefine';  | 
        
            
              | 11 | 
              -   | 
               | 
               |