File Coverage

blib/lib/Net/WAMP/Role/Base/Client/Features.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Net::WAMP::Client::Features;
2              
3 1     1   3 use strict;
  1         1  
  1         28  
4 1     1   5 use warnings;
  1         1  
  1         52  
5              
6             our %FEATURES;
7              
8             #sub get_features_hr {
9             # return \%FEATURES;
10             #}
11             #
12             #sub register_role_feature {
13             # my (@parts) = @_;
14             #
15             # my ($final_key, $value) = splice( @parts, -2 );
16             #
17             # my $hr = \%FEATURES;
18             #
19             # while (@parts) {
20             # $hr = $hr->{shift @parts};
21             # }
22             #
23             # $hr->{$final_key} = $value;
24             #
25             # return;
26             #}
27              
28             1;