File Coverage

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

Criterion	Covered	Total	%
statement	28	29	96.5
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	41	45	91.1

package Net::OBEX::Packet::Request::Get;

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 = (
        is_final => 0,
        headers  => [],

        %args,
    );

    return bless \%args, $class;
}

sub make {
    my $self = shift;

    my $packet = $self->is_final() ? "\x83" : "\x03";
    my $headers = join '', @{$self->headers};
    $packet .= pack 'n', 3+length $headers;
    $packet .= $headers;

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

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

# "\x03" "\x83"   opcodes

1;

__END__