File Coverage

blib/lib/Net/OBEX/Packet/Request/Put.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::Put;

use strict;
use warnings;
our $VERSION = '1.001001'; # VERSION
use Carp;

use base 'Net::OBEX::Packet::Request::Base';

# opcodes 0x02 (0x82)

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() ? "\x82" : "\x02";
    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 };
}

1;

__END__