our $Extra = 0;
has ambient_indent_level => (
- is => 'rwp', lazy => 1, clearer => 1, default => 0
+ is => 'rwp', lazy => 1, clearer => 1, default => 0, isa => Int
);
sub indent_by { ' ' }
sub _format {
my ($self, $thing) = @_;
my ($as, $data) = @{blessed($thing) ? $thing->for_deparse : $thing};
+ # return $self->${\"_format_as_${as}"}($data); if $WS eq "\n";
local $WS = ' ';
- my $spaced = $self->${\"_format_as_${as}"}($data);#
+ my $spaced = $self->${\"_format_as_${as}"}($data);
if ($spaced =~ /\n/
or (length($spaced)
> ($self->max_width -