File Coverage

blib/lib/Plack/App/Data/Printer.pm
Criterion Covered Total %
statement 27 27 100.0
branch 2 2 100.0
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1             package Plack::App::Data::Printer;
2              
3 3     3   88195 use base qw(Plack::Component);
  3         15  
  3         1222  
4 3     3   31783 use strict;
  3         6  
  3         47  
5 3     3   12 use warnings;
  3         4  
  3         57  
6              
7 3     3   1419 use Data::Printer;
  3         80595  
  3         18  
8 3     3   4242 use Error::Pure qw(err);
  3         26691  
  3         57  
9 3     3   1307 use Plack::Util::Accessor qw(data);
  3         737  
  3         22  
10              
11             our $VERSION = 0.04;
12              
13             sub call {
14 1     1 1 11 my ($self, $env) = @_;
15              
16 1         2 my $output;
17 1         4 my $data = $self->data;
18 1         11 p $data, 'output' => \$output;
19              
20             return [
21 1         6754 200,
22             ['Content-Type' => 'text/plain'],
23             [$output],
24             ];
25             }
26              
27             sub prepare_app {
28 2     2 1 25517 my $self = shift;
29              
30 2 100       14 if (! $self->data) {
31 1         14 err 'No data.';
32             }
33              
34 1         9 return;
35             }
36              
37             1;
38              
39             __END__