File Coverage

blib/lib/Net/WebSocket/HTTP.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	30	100.0

package Net::WebSocket::HTTP;

use strict;
use warnings;

use Call::Context ();

use Net::WebSocket::X ();

=encoding utf-8

=head1 NAME

Net::WebSocket::HTTP - HTTP utilities for Net::WebSocket

=head1 SYNOPSIS

    @tokens = Net::WebSocket::HTTP::split_tokens($tokens_str);

=head1 FUNCTIONS

=head2 @tokens = split_tokens( TOKENS_STR )

A parser for the C<1#token> format as defined in L. (C<1#> and C are defined independently of each other.)

Returns a list of the HTTP tokens in TOKENS_STR. Throws an exception
if any of the tokens is invalid as per the RFC’s C definition.

=cut

#Would this be useful to publish separately? It seemed so at one point,
#but “#1token” doesn’t appear in the HTTP RFC.
sub split_tokens {
    my ($value) = @_;

    Call::Context::must_be_list();

    $value =~ s<\A[ \t]+><>;
    $value =~ s<[ \t]+\z><>;

    my @tokens;
    for my $p ( split m<[ \t]*,[ \t]*>, $value ) {
        if ($p =~ tr~()<>@,;:\\"/[]?={} \t~~) {
            die Net::WebSocket::X->create('BadToken', $p);
        }

        push @tokens, $p;
    }

    return @tokens;
}

1;