File Coverage

blib/lib/CGI/Carp/DebugScreen/DefaultView.pm

Criterion	Covered	Total	%
statement	91	91	100.0
branch	18	18	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	117	117	100.0

package CGI::Carp::DebugScreen::DefaultView;

use strict;
use warnings;

our $VERSION = '0.15';

sub as_html {
  my ($pkg, %options) = @_;

  delete $options{debug_template};
  delete $options{error_template};

  $options{debug} ? $pkg->_debug(%options) : $pkg->_error(%options);
}

sub _escape {
  my $str = shift;

  $str =~ s/&/&/g;
  $str =~ s/>/>/g;
  $str =~ s/
  $str =~ s/"/"/g;

  $str;
}

sub _navi {
  my %options = @_;

  my $html =<<"EOT";

[top]
[stacktraces]
EOT
  if (@{ $options{watchlist} }) {
    $html .=<<"EOT";
[watchlist]
EOT
  }
  if (@{ $options{modules} }) {
    $html .=<<"EOT";
[modules]
EOT
  }
  if (@{ $options{environment} }) {
    $html .=<<"EOT";
[environment]
EOT
  }
  $html .=<<"EOT";

EOT

  return $html;
}

sub _debug {
  my ($pkg, %options) = @_;

  my $error_at = _escape($options{error_at});

  my $html =<<"EOT";


Debug Screen
$options{style}




$error_at
EOT

  if ($options{show_raw_error}) {
    $html .=<<"EOT";
$options{raw_error}
EOT
  }
  else {
    $html .=<<"EOT";

$options{error_message}

EOT
  }

  $html .= _navi(%options);

  $html .=<<"EOT";

Stacktraces

EOT

  foreach my $stacktrace (@{ $options{stacktraces} }) {
    my $caller = _escape($stacktrace->{caller});
    my $line   = $stacktrace->{line};
    $html .=<<"EOT";
$caller LINE : $line

 




102




 





 





 





 





 





 



 EOT
 




103




 





 





 





 





 





 



 
 




104




30





 





 





 





 





33



     foreach my $line (@{ $stacktrace->{context} }) {
 




 




30





 





 





 





 





68



   




105




210




  
100
  




 





 





 





399



       if ($line->{hit}) {
 




106




30





 





 





 





 





39



         $html .=<<"EOT";
 




107




 





 





 





 





 





 



 
 




108




 





 





 





 





 





 



 EOT
 




109




 





 





 





 





 





 



       }
 




110




 





 





 





 





 





 



       else {
 




111




180





 





 





 





 





199



         $html .=<<"EOT";
 




112




 





 





 





 





 





 



 
 




113




 





 





 





 





 





 



 EOT
 




114




 





 





 





 





 





 



       }
 




115




210





 





 





 





 





336



       my $line_no   = _escape($line->{no});
 




116




210





 





 





 





 





371



       my $line_body = _escape($line->{line});
 




117




210





 





 





 





 





610



       $html .=<<"EOT";
 




118




 





 





 





 





 





 



 $line_no:$line_body
 




119




 





 





 





 





 





 



 
 




120




 





 





 





 





 





 



 EOT
 




121




 





 





 





 





 





 



     }
 




122




30





 





 





 





 





66



     $html .=<<"EOT";
 




123
EOT

    foreach my $line (@{ $stacktrace->{context} }) {
      if ($line->{hit}) {
        $html .=<<"EOT";

EOT
      }
      else {
        $html .=<<"EOT";

EOT
      }
      my $line_no   = _escape($line->{no});
      my $line_body = _escape($line->{line});
      $html .=<<"EOT";


EOT
    }
    $html .=<<"EOT";

EOT
  }

  $html .=<<"EOT";


EOT

  if (@{ $options{watchlist} }) {
    $html .= _navi(%options);

    $html .=<<"EOT";

Watch List

EOT

    foreach my $watch (@{ $options{watchlist} }) {
      my $key   = _escape($watch->{key});
      my $table = $watch->{value};
      $html .=<<"EOT";

$key

$table


EOT
    }
    $html .=<<"EOT";


EOT
  }

  if (@{ $options{modules} }) {
    $html .= _navi(%options);

    $html .=<<"EOT";

Included Modules

EOT

    foreach my $module (@{ $options{modules} }) {
      my $package = _escape($module->{package});
      my $file    = _escape($module->{file});

      $html .=<<"EOT";
$package ($file)
EOT
    }
    $html .=<<"EOT";


EOT
  }

  if (@{ $options{environment} }) {
    $html .= _navi(%options);

    $html .=<<"EOT";

Environmental Variables

 




189




 





 





 





 





 





 



 EOT
 




190




 





 





 





 





 





 



 
 




191




2





 





 





 





 





4



     foreach my $env (@{ $options{environment} }) {
 




 




2





 





 





 





 





6



   




192




44





 





 





 





 





78



       my $key   = _escape($env->{key});
 




193




44





 





 





 





 





80



       my $value = _escape($env->{value});
 




194




44





 





 





 





 





225



       $html .=<<"EOT";
 




195




 





 





 





 





 





 



 
 




196




 





 





 





 





 





 



 $key$value
 




197




 





 





 





 





 





 



 
 




198




 





 





 





 





 





 



 EOT
 




199




 





 





 





 





 





 



     }
 




200




2





 





 





 





 





5



     $html .=<<"EOT";
 




201
EOT

    foreach my $env (@{ $options{environment} }) {
      my $key   = _escape($env->{key});
      my $value = _escape($env->{value});
      $html .=<<"EOT";



EOT
    }
    $html .=<<"EOT";


EOT
  }

  my $version = _escape($options{version});
  my $view    = _escape($options{view});

  $html .=<<"EOT";
CGI::Carp::DebugScreen $version. Output via $view



EOT

  return $html;
}

sub _error {
  my ($pkg, %options) = @_;

  my %escaped = map {
    ( $_, _escape($options{$_}) )
  } keys %options;

  my $html =<<"EOT";


An unexpected error has been detected
$options{style}



An unexpected error has been detected
Sorry for inconvenience.



EOT

  return $html;
}

1;

__END__