view release on metacpan or  search on metacpan

lib/AtteanX/API/Lexer.pm  view on Meta::CPAN

		unless (length($self->buffer)) {
			my $line	= $self->file->getline;
# use Data::Dumper;
# warn Dumper({buffer_line => $line});
			$self->{buffer}	.= $line if (defined($line));
		}
	}

=item C<< check_for_bom >>

Remove a BOM character if one appears at the start of the buffer.

=cut

	sub check_for_bom {
		my $self	= shift;
		my $c		= $self->peek_char();
		$self->get_char if (defined($c) and $c eq "\x{FEFF}");
	}

=item C<< get_char_safe( $char ) >>