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 15     15   217994 use strict;
  15         58  
  15         444  
4 15     15   297 use warnings;
  15         46  
  15         445  
5              
6 15     15   1912 use Call::Context ();
  15         1568  
  15         4141  
7              
8             sub new {
9 15 50   15 0 171 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         81 return bless \@_, shift;
14             }
15              
16             sub get_frames {
17 6     6 0 584 my ($self) = @_;
18              
19 6         26 Call::Context::must_be_list();
20              
21 6         98 return @$self;
22             }
23              
24             sub get_payload {
25 18     18 0 1530 my ($self) = @_;
26              
27 18         132 return join( q<>, map { $_->get_payload() } @$self );
  26         117  
28             }
29              
30             sub get_type {
31 5     5 0 6134 return $_[0][0]->get_type();
32             }
33              
34             sub is_control {
35 1     1 0 10 return $_[0][0]->is_control();
36             }
37              
38             sub to_bytes {
39 1     1 0 3 my ($self) = @_;
40              
41 1         2 return join( q<>, map { $_->to_bytes() } @$self );
  3         14  
42             }
43              
44             1;