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   487 use strict;
  1         1  
  1         25  
4 1     1   3 use warnings;
  1         1  
  1         25  
5              
6 1     1   3 use parent qw( Net::WAMP::Base::SessionMessage );
  1         2  
  1         4  
7              
8 1     1   29 use Types::Serialiser ();
  1         2  
  1         16  
9              
10 1     1   3 use constant PARTS => qw( Request Auxiliary Topic Arguments ArgumentsKw );
  1         2  
  1         44  
11              
12 1     1   3 use constant HAS_AUXILIARY => 1;
  1         2  
  1         103  
13              
14             sub publisher_wants_acknowledgement {
15 1     1 0 9 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;