File Coverage

blib/lib/Plack/Middleware/Debug/Recorder.pm
Criterion Covered Total %
statement 22 22 100.0
branch 6 6 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 34 34 100.0


line stmt bran cond sub pod time code
1             ## no critic (RequireUseStrict)
2             package Plack::Middleware::Debug::Recorder;
3             $Plack::Middleware::Debug::Recorder::VERSION = '0.05'; # TRIAL
4             ## use critic (RequireUseStrict)
5 1     1   6091 use strict;
  1         1  
  1         30  
6 1     1   3 use warnings;
  1         1  
  1         23  
7 1     1   4 use parent 'Plack::Middleware::Debug::Base';
  1         1  
  1         5  
8              
9             sub run {
10 14     14 1 82653 my ( $self, $env, $panel ) = @_;
11              
12 14         29 $panel->title('Recorder');
13              
14             return sub {
15 14     14   299 my ( $res ) = @_;
16              
17 14 100       45 unless(exists $env->{'Plack::Middleware::Recorder.active'}) {
18 1         3 $panel->disabled(1);
19 1         4 return;
20             }
21              
22 13 100       25 my $status = $env->{'Plack::Middleware::Recorder.active'}
23             ? 'ON'
24             : 'OFF';
25              
26 13 100       32 my $color = $status eq 'ON' ? 'green' : 'red';
27 13         15 my $start_url = $env->{'Plack::Middleware::Recorder.start_url'};
28 13         15 my $stop_url = $env->{'Plack::Middleware::Recorder.stop_url'};
29              
30 13         64 my $content = <
31            
32             Request recording is $status
33            
34            
35            
36            
37            
38            
39            
55             HTML
56              
57 13         30 $panel->content($content);
58 14         101 };
59             }
60              
61             1;
62              
63             # ABSTRACT: Debug panel to communicate with the Recorder middleware
64              
65             __END__