File Coverage

blib/lib/Net/OBEX/Packet/Headers/ByteSeq.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	4	8	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	36	41	87.8

package Net::OBEX::Packet::Headers::ByteSeq;

use strict;
use warnings;
use Carp;

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

our $VERSION = '1.001001'; # VERSION

my %Header_HI_For = (
    type            => "\x42",
    time            => "\x44",
    target          => "\x46",
    http            => "\x47",
    body            => "\x48",
    end_of_body     => "\x49",
    who             => "\x4A",
    app_params      => "\x4C",
    auth_challenge  => "\x4D",
    auth_response   => "\x4E",
    object_class    => "\x4F",
);


sub new {
    my ( $class, $name, $value ) = @_;

    croak "Missing header name or HI identifier"
        unless defined $name;

    $name = $Header_HI_For{ lc $name }
        if exists $Header_HI_For{ lc $name };

    $value = ''
        unless defined $value;

    return bless {
        value  => $value,
        hi     => $name,
    }, $class;
}

sub make {
    my $self = shift;

    my $value = $self->value;
    unless ( length $value ) {
        return $self->hi . "\x00\x03";
    }

    my $header = $self->hi; # header code
    $header .= pack 'n', 3 + length $value;
    $header .= $value;
    return $self->header($header);
}

1;

__END__