File Coverage

blib/lib/BACnet/PDUTypes/PDU.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package BACnet::PDUTypes::PDU;
4              
5 27     27   13005 use warnings;
  27         105  
  27         1508  
6 27     27   140 use strict;
  27         49  
  27         727  
7              
8 27     27   119 use bytes;
  27         70  
  27         136  
9              
10 27     27   685 use BACnet::DataTypes::Utils;
  27         51  
  27         2786  
11              
12             sub data {
13 54     54 0 6630 my ($self) = @_;
14              
15 54         235 return $self->{data};
16             }
17              
18             sub flags {
19 18     18 0 33 my ($self) = @_;
20              
21 18         77 return $self->{flags};
22             }
23              
24             1;