File Coverage

blib/lib/Net/OBEX/Response/Connect.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	28	96.4

package Net::OBEX::Response::Connect;

use strict;
use warnings;

our $VERSION = '1.001001'; # VERSION

use Carp;
use base 'Net::OBEX::Response::Generic';

sub parse_info {
    my ( $self, $packet ) = @_;
    $packet = $self->packet
        unless defined $packet;

    my %info;
    @info{ qw(
            response_code  packet_length  obex_version  flags  mtu
        )
    } = unpack 'a n B8 B8 n', $packet;

    @info{qw( response_code response_code_meaning ) } =
    $self->code_meaning( $info{response_code} );

    $info{headers_length} = $info{packet_length} - 7;
    $self->headers_length( $info{headers_length} );

    return $self->info( \%info );
}

1;

__END__