File Coverage

blib/lib/BACnet/DataTypes/Double.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	32	37	86.4

#!/usr/bin/perl

package BACnet::DataTypes::Double;

use warnings;
use strict;

use BACnet::DataTypes::Utils;

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

use constant { LENGTH => 8, };

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

    my $self = {
        data => BACnet::DataTypes::Utils::_construct_head(
            BACnet::DataTypes::Utils::DOUBLE_TAG,
            $modified_tag, LENGTH )
          . pack( 'd>', $input_double ),
        val => $input_double,
    };

    return bless $self, $class;
}

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

    my $self = bless { data => $data_in, }, $class;

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

    if ( !$headache eq '' ) {
        $self->{error} = "Double: $headache";
        return $self;
    }

    $self->{val} = unpack(
        'd>',
        substr(
            $data_in, BACnet::DataTypes::Utils::_get_head_length($data_in),
            LENGTH
        )
    );

    return $self;
}

1;