File Coverage

blib/lib/Plack/Middleware/UseChromeFrame.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	1	1	100.0
total	29	30	96.6

package Plack::Middleware::UseChromeFrame;
BEGIN {
  $Plack::Middleware::UseChromeFrame::VERSION = '1.003';
}
use strict;
use parent 'Plack::Middleware';
use Plack::Util ();

# ABSTRACT: enable Google Chrome Frame for users who have it

sub call {
	my $self = shift;
	my ( $env ) = @_;
	my $res = $self->app->( $env );

	my $ua = $env->{'HTTP_USER_AGENT'};
	return $res unless defined $ua and $ua =~ /chromeframe/i;

	Plack::Util::response_cb( $res, sub {
		Plack::Util::header_push( $_[0][1], 'X-UA-Compatible', 'chrome=1' );
		return;
	} );
}

1;



=pod

=head1 NAME

Plack::Middleware::UseChromeFrame - enable Google Chrome Frame for users who have it

=head1 VERSION

version 1.003

=head1 SYNOPSIS

 # in app.psgi
 use Plack::Builder;

 builder {
     enable 'UseChromeFrame';
     $app;
 };

=head1 DESCRIPTION

This is a lightweight middleware that adds the C
header required by GoogleEChromeEFrame to take over page rendering,
for requests made from a browser with ChromeEFrame installed.

=head1 SEE ALSO

=over 4

=item *

GoogleEChromeEFrame L

=item *

L

This is a much more aggressive middleware. Visitors running
InternetEExplorer without ChromeEFrame installed are prevented from
seeing the site at all: they only receive a page instructing them on how to
install ChromeEFrame.

=back

=head1 AUTHOR

Aristotle Pagaltzis

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Aristotle Pagaltzis.

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


__END__