Yet Another CPAN Grep

HTTP-Accept ( R/RE/RENEEB/HTTP-Accept-0.03.tar.gz, RENEEB, 2018; MetaCPAN )

HTTP-Accept/lib/HTTP/Accept.pm ( view source; MetaCPAN )

 application/json;q=0.5';
    my $accept_header  = HTTP::Accept->new( $header );
    
    # returns text/html
    my $use_accept     = $accept_header->match( qw(text/html application/json) );

=head1

----------------+----------------------------
  text/html, application/json;q=0.5 | text/html, application/json
  application/json;q=0.5, text/html | text/html, application/*
  application/*;q=0.5, te

der         = 'text/html, application/json;q=0.5';
    my $accept_header  = HTTP::Accept->new( $header );

=head2 match

    # header: 'text/html, application/json;q=0.5'
    my $accept = $accept_head