sub { my $t_ref = shift; if ($$t_ref =~ /\G( *)/g) { my $indent = $1; $indent =~ s/ / /g; return "
\n$indent"; } else { confess("This shouldn't happen"); } }