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

package Protocol::DBus::Address;

use strict;
use warnings;

use Call::Context;

# Not a very choosy parser, and it doesn’t try to validate anything.
sub parse {
    Call::Context::must_be_list();

    return map {
        my $str = $_;

        my $xport = substr( $_, 0, 1 + index($_, ':'), q<> );
        chop $xport;

        my %kvs = (
            map { split m<=>, $_ } (split m<,>, $_),
        );

        s<%(..)>ge for values %kvs;

        bless { _str => $str, _transport => $xport, _attrs => \%kvs }, __PACKAGE__;
    } ( split m<;>, $_[0] );
}

#----------------------------------------------------------------------

sub transport {
    return $_[0]{'_transport'};
}

sub to_string {
    return $_[0]{'_str'};
}

sub attribute {
    return $_[0]{'_attrs'}{$_[1]};
}

1;