File Coverage

blib/lib/Net/WebSocket/Message.pm
Criterion Covered Total %
statement 22 23 95.6
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod 0 6 0.0
total 32 40 80.0


line stmt bran cond sub pod time code
1             package Net::WebSocket::Message;
2              
3 14     14   217084 use strict;
  14         53  
  14         449  
4 14     14   233 use warnings;
  14         37  
  14         698  
5              
6 14     14   2036 use Call::Context ();
  14         1539  
  14         3904  
7              
8             sub new {
9 15 50   15 0 162 if (!$_[1]->isa('Net::WebSocket::Frame')) {
10 0         0 die( (caller 0)[3] . ' needs at least one Net::WebSocket::Frame object!' );
11             }
12              
13 15         79 return bless \@_, shift;
14             }
15              
16             sub get_frames {
17 6     6 0 502 my ($self) = @_;
18              
19 6         24 Call::Context::must_be_list();
20              
21 6         93 return @$self;
22             }
23              
24             sub get_payload {
25 18     18 0 1681 my ($self) = @_;
26              
27 18         122 return join( q<>, map { $_->get_payload() } @$self );
  26         114  
28             }
29              
30             sub get_type {
31 5     5 0 6131 return $_[0][0]->get_type();
32             }
33              
34             sub is_control {
35 1     1 0 11 return $_[0][0]->is_control();
36             }
37              
38             sub to_bytes {
39 1     1 0 4 my ($self) = @_;
40              
41 1         3 return join( q<>, map { $_->to_bytes() } @$self );
  3         13  
42             }
43              
44             1;