File Coverage

blib/lib/Plack/Middleware/OptionsOK.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	5	8	62.5
subroutine	5	5	100.0
pod	1	1	100.0
total	29	33	87.8

package Plack::Middleware::OptionsOK;

use strict;
use warnings;
use Plack::Util::Accessor qw(allow);
use parent qw( Plack::Middleware );

our $VERSION = 0.02;

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

    if ($env->{REQUEST_METHOD} eq 'OPTIONS'
        && (   $env->{REQUEST_URI} eq '*'
            || $env->{REQUEST_URI} eq '/'
            || $env->{REQUEST_URI} eq '/*' )
        )
    {

        # We match /* because of the tests
        my $allow = $self->allow || 'GET HEAD OPTIONS';
        return [ 200, [ 'Allow' => $allow ], [] ];
    }

    # Not an OPTIONS * request, carry on...
    return $self->app->($env);

}

1;

__END__