File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	26	29	89.6

package Net::OBEX::Packet::Headers::Byte4;

use strict;
use warnings;
use Carp;

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

our $VERSION = '1.001001'; # VERSION

my %Header_HI_For = (
    count           => "\xC0",
    length          => "\xC3",
    timeb           => "\xC4",
    connection_id   => "\xCB",
);

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;
}


1;

__END__