File Coverage

blib/lib/Protocol/DBus/Address.pm
Criterion Covered Total %
statement 21 22 95.4
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 4 0.0
total 28 33 84.8


line stmt bran cond sub pod time code
1             package Protocol::DBus::Address;
2              
3 7     7   106560 use strict;
  7         19  
  7         169  
4 7     7   29 use warnings;
  7         13  
  7         144  
5              
6 7     7   723 use Call::Context;
  7         662  
  7         1866  
7              
8             # Not a very choosy parser, and it doesn’t try to validate anything.
9             sub parse {
10 4     4 0 21994 Call::Context::must_be_list();
11              
12             return map {
13 4         130 my $str = $_;
  5         18  
14              
15 5         33 my $xport = substr( $_, 0, 1 + index($_, ':'), q<> );
16 5         23 chop $xport;
17              
18             my %kvs = (
19 5         21 map { split m<=>, $_ } (split m<,>, $_),
  6         41  
20             );
21              
22 5         38 s<%(..)>ge for values %kvs;
  0         0  
23              
24 5         81 bless { _str => $str, _transport => $xport, _attrs => \%kvs }, __PACKAGE__;
25             } ( split m<;>, $_[0] );
26             }
27              
28             #----------------------------------------------------------------------
29              
30             sub transport {
31 5     5 0 7750 return $_[0]{'_transport'};
32             }
33              
34             sub to_string {
35 3     3 0 63 return $_[0]{'_str'};
36             }
37              
38             sub attribute {
39 8     8 0 119 return $_[0]{'_attrs'}{$_[1]};
40             }
41              
42             1;