File Coverage

blib/lib/Plack/Middleware/Acme/PHPE9568F34/D428/11d2/A769/00AA001ACF42.pm
Criterion Covered Total %
statement 15 22 68.1
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod 1 2 50.0
total 21 33 63.6


line stmt bran cond sub pod time code
1             package Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42;
2             {
3             $Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42::VERSION = '3.141000';
4             }
5              
6             # ABSTRACT: Implement PHP's best features with PSGI!
7              
8 1     1   1039 use strict;
  1         2  
  1         43  
9 1     1   6 use warnings;
  1         2  
  1         33  
10              
11 1     1   2083 use MIME::Base64;
  1         824  
  1         78  
12 1     1   866 use Data::Section -setup;
  1         58305  
  1         9  
13              
14             my $get_image = sub {
15             my ($self, $section) = @_;
16              
17             my $data = ${$self->section_data($section)};
18             $data =~ s/^\s+//mg;
19             $data =~ s/\s+$//mg;
20             decode_base64($data)
21             };
22              
23             sub sillies {
24 0     0 0   my $self = shift;
25              
26             (
27 0           '=PHPE9568F34-D428-11d2-A769-00AA001ACF42' => $self->$get_image('logo'),
28             '=PHPE9568F35-D428-11d2-A769-00AA001ACF42' => $self->$get_image('zend'),
29             '=PHPE9568F36-D428-11d2-A769-00AA001ACF42' => $self->$get_image('child'),
30             )
31             }
32              
33 1     1   789 use base 'Plack::Middleware';
  1         3  
  1         1017  
34              
35             sub call {
36 0     0 1   my($self, $env) = @_;
37              
38 0           my %responses = $self->sillies;
39 0 0         if (my $ret = $responses{$env->{QUERY_STRING}}) {
40 0           return [ 200, [
41             'Content-Type' => 'image/gif',
42             'X-PHP-SUX' => '1',
43             ], [ $ret ] ]
44             } else {
45 0           return $self->app->($env);
46             }
47             }
48              
49             1;
50              
51             =pod
52              
53             =head1 NAME
54              
55             Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42 - Implement PHP's best features with PSGI!
56              
57             =head1 VERSION
58              
59             version 3.141000
60              
61             =head1 SYNOPSIS
62              
63             builder {
64             enable 'Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42';
65             $app;
66             }
67              
68             =head1 DESCRIPTION
69              
70             Who in the Perl community doesn't envy PHP's
71             L? This module will give
72             you the features you've always hoped and dreamed for!
73              
74             =head1 AUTHOR
75              
76             Arthur Axel "fREW" Schmidt
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             This software is copyright (c) 2012 by Arthur Axel "fREW" Schmidt.
81              
82             This is free software; you can redistribute it and/or modify it under
83             the same terms as the Perl 5 programming language system itself.
84              
85             =cut
86              
87             __DATA__