File Coverage

blib/lib/BACnet/ServiceRequestSequences/Utils.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	11	11	100.0

#!/usr/bin/perl

package BACnet::ServiceRequestSequences::Utils;

use warnings;
use strict;

require BACnet::DataTypes::SequenceValue;
require BACnet::DataTypes::Enum;

require BACnet::DataTypes::Bone;

our $error_type_skeleton = [
    BACnet::DataTypes::Bone->construct(
        tag  => 0,
        name => 'error_class',
        dt   => 'BACnet::DataTypes::Enum'
    ),
    BACnet::DataTypes::Bone->construct(
        tag  => 1,
        name => 'error_code',
        dt   => 'BACnet::DataTypes::Enum'
    ),
];

sub _error_type {
    my %args = (
        error_class => undef,
        error_code  => undef,
        @_,
    );

    return BACnet::DataTypes::SequenceValue->construct(
        [
            [
                'error_class',
                BACnet::DataTypes::Enum->construct( $args{error_class}, 0x00 )
            ],
            [
                'error_code',
                BACnet::DataTypes::Enum->construct( $args{error_code}, 0x01 )
            ]
        ],
    );
}

1;