7 my $class = ref($proto) || $proto;
16 my $file = \${$self->{FILE}};
20 if(defined($_)) { $$file = $_; }
27 my $begin_line = \${$self->{BEGIN_LINE}};
31 if(defined($_)) { $$begin_line = $_; }
38 my $begin_column = \${$self->{BEGIN_COLUMN}};
42 if(defined($_)) { $$begin_column = $_; }
44 return $$begin_column;
49 my $end_line = \${$self->{END_LINE}};
53 if(defined($_)) { $$end_line = $_; }
60 my $end_column = \${$self->{END_COLUMN}};
64 if(defined($_)) { $$end_column = $_; }
71 my $linkage = \${$self->{LINKAGE}};
75 if(defined($_)) { $$linkage = $_; }
82 my $return_type = \${$self->{RETURN_TYPE}};
86 if(defined($_)) { $$return_type = $_; }
91 sub calling_convention {
93 my $calling_convention = \${$self->{CALLING_CONVENTION}};
97 if(defined($_)) { $$calling_convention = $_; }
99 return $$calling_convention;
104 my $name = \${$self->{NAME}};
108 if(defined($_)) { $$name = $_; }
115 my $argument_types = \${$self->{ARGUMENT_TYPES}};
119 if(defined($_)) { $$argument_types = $_; }
121 return $$argument_types;
126 my $argument_names = \${$self->{ARGUMENT_NAMES}};
130 if(defined($_)) { $$argument_names = $_; }
132 return $$argument_names;
135 sub statements_line {
137 my $statements_line = \${$self->{STATEMENTS_LINE}};
141 if(defined($_)) { $$statements_line = $_; }
143 return $$statements_line;
146 sub statements_column {
148 my $statements_column = \${$self->{STATEMENTS_COLUMN}};
152 if(defined($_)) { $$statements_column = $_; }
154 return $$statements_column;
159 my $statements = \${$self->{STATEMENTS}};
163 if(defined($_)) { $$statements = $_; }