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

package Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42;
{
  $Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42::VERSION = '3.141000';
}

# ABSTRACT: Implement PHP's best features with PSGI!

use strict;
use warnings;

use MIME::Base64;
use Data::Section -setup;

my $get_image = sub {
   my ($self, $section) = @_;

   my $data = ${$self->section_data($section)};
   $data =~ s/^\s+//mg;
   $data =~ s/\s+$//mg;
   decode_base64($data)
};

sub sillies {
   my $self = shift;

   (
      '=PHPE9568F34-D428-11d2-A769-00AA001ACF42' => $self->$get_image('logo'),
      '=PHPE9568F35-D428-11d2-A769-00AA001ACF42' => $self->$get_image('zend'),
      '=PHPE9568F36-D428-11d2-A769-00AA001ACF42' => $self->$get_image('child'),
   )
}

use base 'Plack::Middleware';

sub call {
   my($self, $env) = @_;

   my %responses = $self->sillies;
   if (my $ret = $responses{$env->{QUERY_STRING}}) {
      return [ 200, [
        'Content-Type' => 'image/gif',
        'X-PHP-SUX' => '1',
      ], [ $ret ] ]
   } else {
      return $self->app->($env);
   }
}

1;

=pod

=head1 NAME

Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42 - Implement PHP's best features with PSGI!

=head1 VERSION

version 3.141000

=head1 SYNOPSIS

 builder {
    enable 'Plack::Middleware::Acme::PHPE9568F34::D428::11d2::A769::00AA001ACF42';
    $app;
 }

=head1 DESCRIPTION

Who in the Perl community doesn't envy PHP's
L?  This module will give
you the features you've always hoped and dreamed for!

=head1 AUTHOR

Arthur Axel "fREW" Schmidt

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Arthur Axel "fREW" Schmidt.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__DATA__