BACnet

 view release on metacpan or  search on metacpan

lib/BACnet/DataTypes/Date.pm  view on Meta::CPAN

use warnings;
use strict;

use BACnet::DataTypes::Utils;

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

use constant { YEAR_OFFSET => 1900 };
use constant { LENGTH      => 4 };

# this did not check if the date make sense or not, because someone may want to use some weird calendar

sub construct {
    my ( $class, $year, $month, $day, $day_of_the_week, $modified_tag ) = @_;

    # $month (1-12), $day, $day_of_the_week (1-7)

    my $self = {
        data            => '',
        year            => $year,
        month           => $month,

lib/BACnet/DataTypes/Enums/PropertyIdentifier.pm  view on Meta::CPAN

        name => 'start_date',
        dt   => $date_string
    ),
    BACnet::DataTypes::Bone->construct(
        tag  => $date_tag,
        name => 'end_date',
        dt   => $date_string
    ),
];

our $calendar_entry_skeleton = [
    BACnet::DataTypes::Bone->construct(
        tag  => 0,
        name => 'date',
        dt   => $date_string
    ),
    BACnet::DataTypes::Bone->construct(
        tag      => 1,
        name     => 'date_range',
        dt       => $sequence_value_string,
        skeleton => $date_range_skeleton

lib/BACnet/DataTypes/Enums/PropertyIdentifier.pm  view on Meta::CPAN

    ),
    179 => BACnet::DataTypes::Bone->construct(
        dt       => $sequence_value_string,
        skeleton => $date_time_skeleton
    ),
    155 => BACnet::DataTypes::Bone->construct(
        dt => $unsigned_int_string
    ),
    23 => BACnet::DataTypes::Bone->construct(
        dt       => $sequence_value_string,
        skeleton => $calendar_entry_skeleton
    ),
    28 => BACnet::DataTypes::Bone->construct(
        dt => $char_string_string
    ),
    30 => BACnet::DataTypes::Bone->construct(
        dt       => $sequence_of_values_string,
        skeleton => $list_of_address_binding_skeleton
    ),
    32 => BACnet::DataTypes::Bone->construct(
        dt       => $sequence_value_string,

lib/BACnet/DataTypes/Time.pm  view on Meta::CPAN

use warnings;
use strict;

use BACnet::DataTypes::Utils;

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

use constant { LENGTH => 0x04 };

# this did not check if the date make sense or not, because someone may want to use some weird calendar

sub construct {
    my ( $class, $hour, $minute, $second, $centisecond, $modified_tag ) = @_;

    my $self = {
        data        => '',
        hour        => $hour,
        minute      => $minute,
        second      => $second,
        centisecond => $centisecond,