File Coverage

blib/lib/BACnet/DataTypes/UnsignedInt.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	36	41	87.8

#!/usr/bin/perl

package BACnet::DataTypes::UnsignedInt;

use warnings;
use strict;

use BACnet::DataTypes::Utils;

use parent 'BACnet::DataTypes::DataType';

use constant { BYTE_MODULAR => ( 2**8 ) };

sub construct {
    my ( $class, $input_int, $modified_tag ) = @_;

    my $self = {
        data => '',
        val  => $input_int,
    };

    # Context Tag doc. page 378

    my ( $len_in_octets, $encoded_int ) =
      BACnet::DataTypes::Utils::_encode_nonnegative_int($input_int);

    $self->{data} .= BACnet::DataTypes::Utils::_construct_head(
        BACnet::DataTypes::Utils::UNSIGNED_INT_TAG,
        $modified_tag, $len_in_octets );

    $self->{data} .= $encoded_int;

    return bless $self, $class;
}

sub parse {
    my ( $class, $data_in ) = @_;

    my $self = bless { data => $data_in, }, $class;
    my $head = unpack( 'C', substr( $data_in, 0, 1 ) );

    my $headache = BACnet::DataTypes::Utils::_correct_head(
        data_in      => $data_in,
        expected_tag => BACnet::DataTypes::Utils::UNSIGNED_INT_TAG,
    );

    if ( $headache ne "" ) {
        $self->{error} = "Unsigned Int: $headache";
        return $self;
    }

    $self->{val} =
      BACnet::DataTypes::Utils::_decode_nonnegative_int(
        substr( $data_in, BACnet::DataTypes::Utils::_get_head_length($data_in) )
      );

    return $self;
}

1;