File Coverage

blib/lib/ASP4/FilterResolver.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	26	31	83.8

package ASP4::FilterResolver;

use strict;
use warnings 'all';
my %FilterCache = ( );


sub new
{
  my ($class, %args) = @_;

  return bless \%args, $class;
}# end new()


sub context { ASP4::HTTPContext->current }


sub resolve_request_filters
{
  my ($s, $uri) = @_;

  ($uri) = split /\?/, $uri;
  return @{$FilterCache{$uri}} if $FilterCache{$uri};
  $FilterCache{$uri} = [
    grep {
      if( my $pattern = $_->uri_match )
      {
        $uri =~ m/$pattern/
      }
      else
      {
        $uri eq $_->uri_equals;
      }# end if()
    } $s->context->config->web->request_filters
  ];
  return @{$FilterCache{$uri}};
}# end resolve_request_filters()

1;# return true: