File Coverage

blib/lib/Plack/Middleware/DevFavicon.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	8	0.0
condition			n/a
subroutine	6	9	66.6
pod	1	2	50.0
total	25	53	47.1

package Plack::Middleware::DevFavicon;
use 5.008_001;
use strict;
use warnings;

our $VERSION = "0.02";

use parent qw(Plack::Middleware);

use Plack::Util;
use Imager;

sub call {
    my($self, $env) = @_;
    my $res = $self->app->($env);
    if ($env->{PATH_INFO} =~ m{ /favicon\. (?:ico|png) $}xms) {
        return $self->dev_favicon($res);
    }

    return $res;
}

sub dev_favicon {
    my($self, $res) = @_;

    my $data = '';
    Plack::Util::foreach($res->[2], sub {
        my($buf) = @_;
        $data .= $buf;
    });

    my $type = Plack::Util::header_get($res->[1], 'content-type') =~ /png/ ? 'png' : 'ico';

    my $img = Imager->new(data => $data, type => $type) or die Imager->errstr;
    $img = $img->convert(preset => 'gray') or die Imager->errstr;

    my $out;
    $img->write(data => \$out, type => $type);

    return [$res->[0], $res->[1], [$out]];
}

1;
__END__