Lines Matching refs:FNAME
87 use enum qw(FNAME LINES TEXT PHYSLINES CHANGED BEFORE AFTER EXTRA);
90 my ($class, $fname, $lines, $text, $physlines) = @_;
91 my ($self) = ([$fname, $lines, $text, $physlines, false, [], [], {}]);
96 sub fname($) { return shift()->[FNAME]; }
121 use enum qw (FNAME LINES TEXT PHYSLINES CHANGED BEFORE AFTER EXTRA);
125 my($class, $fname, $lines, $text, $physlines) = @_;
126 my($self) = ([$fname, $lines, $text, $physlines, false, [], [], {
135 sub fname($) {
136 return shift()->[FNAME];