File Coverage

blib/lib/Plack/Middleware/P3P.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	2	2	100.0
total	37	38	97.3

package Plack::Middleware::P3P;

# ABSTRACT: Add standard (or custom) P3P header to response

use strict;
use warnings;
use parent qw/Plack::Middleware/;
use Plack::Util::Accessor qw/policies/;

our $VERSION = '0.001'; # VERSION

sub prepare_app {
    my $self = shift;
    if (!defined $self->policies) {
        $self->policies('CAO PSA OUR');
    } elsif (ref $self->policies && ref $self->policies eq 'ARRAY') {
        $self->policies(join ' ', @{$self->policies});
    }
    $self->policies('CP="' . $self->policies . '"');
}

sub call {
    my ($self, $env) = @_;
    $self->response_cb($self->app->($env), sub{
        my $res = shift;
        Plack::Util::header_set($res->[1], 'P3P', $self->policies);
    });
}

1;

__END__