The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
sub guess_indentation_style {
	if ( $indentation =~ /^m(\d+)/ ) {
		$style = {
			use_tabs    => 1,
			tabwidth    => 8,
			indentwidth => $1,
		};
	}
}

sub guess_filename {
	my $self = shift;

	return;
}

# Abstract methods, each subclass should implement it
# TO DO: Clearly this isn't ACTUALLY abstract (since they exist)

sub get_calltip_keywords {
	return {};
}

sub two_lines
{
	return 1;
}

sub
three_lines
{
	return 1;
}

# This is a false __DATA__ that shouldn't result in a culled document
'__DATA__';

sub after_data {
	return 1;
}