The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

VTI / Protocol-SocketIO-0.07 / lib / Protocol / SocketIO / Path.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
—
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

              
package Protocol::SocketIO::Path;
use strict;
use warnings;
sub new {
    my $class = shift;
    my $self = bless {@_}, $class;
    $self->{transports}
      ||= [qw/websocket flashsocket htmlfile xhr-polling jsonp-polling/];
    return $self;
}
sub parse {
    my $self = shift;
    my ($path) = @_;
    $path =~ s{^/}{};
    $path =~ s{^$}{};
    my ($protocol_version, $transport_type, $session_id) = split '/',
      $path, 3;
    return unless $protocol_version && $protocol_version =~ m/^\d+$/;
    return
      unless ($transport_type && $session_id)
      || (!$transport_type && !$session_id);
    if ($transport_type) {
        return unless grep { $transport_type eq $_ } @{$self->{transports}};
    }
    $self->{protocol_version} = $protocol_version;
    $self->{transport_type}   = $transport_type;
    $self->{session_id}       = $session_id;
    return $self;
}
sub protocol_version {
    my $self = shift;
    return $self->{protocol_version};
}
sub is_handshake {
    my $self = shift;
    return 0
      if defined $self->{transport_type} && defined $self->{session_id};
    return 1;
}
sub session_id {
    my $self = shift;
    return $self->{session_id};
}
sub transport_type {
    my $self = shift;
    return $self->{transport_type};
}
1;
__END__
=head1 NAME
Protocol::SocketIO::Path - Socket.IO path parsing
=head1 SYNOPSIS
    my $path = Protocol::SocketIO::Path->new->parse('/1/xhr-polling/1234567890');
=head1 METHODS
=head2 C<new>
=head2 C<parse>
=head2 C<protocol_version>
=head2 C<session_id>
=head2 C<transport_type>
=head2 C<is_handshake>
=cut