File Coverage

blib/lib/Plack/Middleware/ChromeFrame.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	6	6	100.0
condition	5	6	83.3
subroutine	7	7	100.0
pod	1	1	100.0
total	49	50	98.0

package Plack::Middleware::ChromeFrame;

use strict;
use warnings;
use parent qw(Plack::Middleware);

use Plack::Request;
use Plack::Util;

our $VERSION = '0.02';
$VERSION = eval $VERSION;

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

    my $req = Plack::Request->new($env);
    my $ua  = $req->user_agent;

    my $chromeframe = 0;
    if ($ua and $ua =~ /MSIE/ and $ua !~ /Opera/) {
        if ($ua =~ /chromeframe/) {
            $chromeframe = 1;
        }
        else {
            my $res = $req->new_response;
            $res->redirect('http://www.google.com/chromeframe');
            return $res->finalize;
        }
    }

    my $res = $self->app->($env);
    $self->response_cb($res, sub {
        return unless $chromeframe;
        my $h = Plack::Util::headers($_[0]->[1]);
        $h->set('X-UA-Compatible' => 'chrome=1');
    });
}


1;

__END__