File Coverage

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

Criterion	Covered	Total	%
statement	39	46	84.7
branch	8	16	50.0
condition	1	3	33.3
subroutine	9	10	90.0
pod	6	6	100.0
total	63	81	77.7

package Net::OBEX::Packet::Request::SetPath;

use strict;
use warnings;

use Carp;
use base 'Net::OBEX::Packet::Request::Base';
our $VERSION = '1.001001'; # VERSION

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 = (
        do_up     => 0,
        no_create => 1,
        constants => "\x00",
        headers   => [],

        %args,
    );

    my $self = bless \%args, $class;

    my $flags = $args{no_create} ? '1' : '0';
    $flags .= $args{do_up}      ? '1' : '0';
    $self->flags( pack 'B8', '000000' . $flags );

    return $self;
}

sub make {
    my $self = shift;

    my $packet;
    my $headers = join '', @{ $self->headers };
    if ( $self->do_up and not length $headers ) {
        $packet = $self->flags . $self->constants;
    }
    else {
        $packet = $self->flags . $self->constants . $headers;
    }

    return $self->raw("\x85" . pack('n', 3 + length $packet) . $packet);
}

sub flags {
    my $self = shift;
    if ( @_ ) {
        $self->{ flags } = shift;
    }
    return $self->{ flags };
}

sub do_up {
    my $self = shift;
    if ( @_ ) {
        $self->{ do_up } = shift;
    }
    return $self->{ do_up };
}

sub constants {
    my $self = shift;
    if ( @_ ) {
        $self->{ constants } = shift;
    }
    return $self->{ constants };
}

sub no_create {
    my $self = shift;
    if ( @_ ) {
        $self->{ no_create } = shift;
    }
    return $self->{ no_create };
}

1;

__END__