view release on metacpan or  search on metacpan

lib/Protocol/DBus/Address.pm  view on Meta::CPAN

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<%(..)><chr hex $1>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'};

lib/Protocol/DBus/Authn/Mechanism/DBUS_COOKIE_SHA1.pm  view on Meta::CPAN

sub _consume_data {
    my ($self, $authn, $line) = @_;

    if (0 != index($line, 'DATA ')) {
        die "Invalid line: [$line]";
    }

    substr( $line, 0, 5, q<> );

    my ($ck_ctx, $ck_id, $sr_challenge) = split m< >, pack( 'H*', $line );

    if (DEBUG()) {
        print STDERR (
            "AUTHN/SHA1 context: $ck_ctx$/",
            "AUTHN/SHA1 cookie ID: $ck_id$/",
            "AUTHN/SHA1 server challenge: $sr_challenge$/",
        );
    }

    my $cookie = $self->_get_cookie($ck_ctx, $ck_id);