File Coverage

blib/lib/Net/WAMP/Message/PUBLISH.pm
Criterion Covered Total %
statement 19 20 95.0
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 2 0.0
total 26 30 86.6


line stmt bran cond sub pod time code
1             package Net::WAMP::Message::PUBLISH;
2              
3 1     1   467 use strict;
  1         2  
  1         24  
4 1     1   4 use warnings;
  1         2  
  1         26  
5              
6 1     1   4 use parent qw( Net::WAMP::Base::SessionMessage );
  1         2  
  1         5  
7              
8 1     1   33 use Types::Serialiser ();
  1         2  
  1         19  
9              
10 1     1   4 use constant PARTS => qw( Request Auxiliary Topic Arguments ArgumentsKw );
  1         1  
  1         45  
11              
12 1     1   5 use constant HAS_AUXILIARY => 1;
  1         2  
  1         108  
13              
14             sub publisher_wants_acknowledgement {
15 1     1 0 5 return Types::Serialiser::is_true( $_[0]->get('Auxiliary')->{'acknowledge'} );
16             }
17              
18             sub publisher_wants_to_be_excluded {
19 0     0 0   return !Types::Serialiser::is_false( $_[0]->get('Auxiliary')->{'exclude_me'} );
20             }
21              
22             1;