File Coverage

blib/lib/Tangence/Meta/Field.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             # You may distribute under the terms of either the GNU General Public License
2             # or the Artistic License (the same terms as Perl itself)
3             #
4             # (C) Paul Evans, 2012-2022 -- leonerd@leonerd.org.uk
5              
6 15     15   185 use v5.26;
  15         49  
7 15     15   85 use Object::Pad 0.66;
  15         176  
  15         71  
8              
9             package Tangence::Meta::Field 0.30;
10             class Tangence::Meta::Field :strict(params);
11              
12             =head1 NAME
13              
14             C - structure representing one C structure
15             field
16              
17             =head1 DESCRIPTION
18              
19             This data structure object stores information about one field of a L
20             structure. Once constructed, such objects are immutable.
21              
22             =cut
23              
24             =head1 CONSTRUCTOR
25              
26             =cut
27              
28             =head2 new
29              
30             $field = Tangence::Meta::Field->new( %args )
31              
32             Returns a new instance initialised by the given fields.
33              
34             =over 8
35              
36             =item name => STRING
37              
38             Name of the field
39              
40             =item type => STRING
41              
42             Type of the field as a L reference
43              
44             =back
45              
46             =cut
47              
48 1035     1035 1 3830 field $name :param :reader;
  1035         2750  
49 843     843 1 1275 field $type :param :reader;
  843         2327  
50              
51             =head1 ACCESSORS
52              
53             =cut
54              
55             =head2 name
56              
57             $name = $field->name
58              
59             Returns the name of the field
60              
61             =cut
62              
63             =head2 type
64              
65             $type = $field->type
66              
67             Return the type as a L reference.
68              
69             =cut
70              
71             =head1 AUTHOR
72              
73             Paul Evans
74              
75             =cut
76              
77             0x55AA;