sub padded {
	my ($arg_ref) = @_;
	my $gap = $arg_ref->{cols} - length $arg_ref->{text};
	my $left = $arg_ref->{centered} ? int($gap/2) : 0;
	my $right = $gap - $left;
	return $arg_ref->{filler} x $left
		. $arg_ref->{text}
			. $arg_ref->{filler} x $right;
}