File Coverage

blib/lib/Net/OBEX/Packet/Request/Connect.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	34	35	97.1

package Net::OBEX::Packet::Request::Connect;

use strict;
use warnings;

our $VERSION = '1.001001'; # VERSION

use Carp;
use base qw(Class::Data::Accessor Net::OBEX::Packet::Request::Base);

__PACKAGE__->mk_classaccessors(
    qw(
        mtu
        version
        flags
    )
);

sub new {
    my $class = shift;
    croak "Must have even number of arguments to new()"
        if @_ & 1;
    my %args = @_;
    $args{ +lc } = delete $args{ $_ } for keys %args;

    %args = (
        mtu       => 4096,
        version   => "\x10",
        flags     => "\x00",
        headers   => [],

        %args,
    );


    return bless \%args, $class;
}

sub make {
    my $self = shift;
    my $headers = join '', @{ $self->headers };

    my $packet = $self->version . $self->flags . pack 'n', $self->mtu;
    $packet .= $headers;

    $packet = "\x80" . (pack 'n', 3 + length $packet) . $packet;

    return $self->raw( $packet );
}

1;

__END__