File Coverage

blib/lib/Plack/Middleware/AddDefaultCharset.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	1	1	100.0
total	43	44	97.7

package Plack::Middleware::AddDefaultCharset;

use strict;
use warnings;
use 5.008_001;

use parent qw(Plack::Middleware);
use Plack::Util;
use Plack::Util::Accessor qw(charset);

our $VERSION = '0.02';

sub call {
    my ($self, $env) = @_;
    $self->response_cb(
        $self->app->($env),
        sub {
            my $res = shift;
            my $headers = $res->[1];
            for (my $i = 0; $i < @$headers; $i += 2) {
                if (lc($headers->[$i]) eq 'content-type') {
                    my $cur_type = $headers->[$i + 1];
                    if ($cur_type =~ m{^text/(html|plain)}
                            && $cur_type !~ /;\s*charset=/) {
                        $headers->[$i + 1] =
                            "$cur_type; charset=" . $self->charset;
                    }
                    last;
                }
            }
        },
    );
}

1;
__END__