Select Code to Download

    use Indent( text => " ", eol => 1, level => 1 );

...
    ( Indent::over, Indent::printf $_ ) for ( @str );
    Indent::reset;
    Indent::printf("there is no way");

    use Indent;
    our $indent = Indent->new( text => " ", eol => 1, level => 1 );
...
        ( ++$indent )->printf($_) for ( @str );
    }
    print($indent - 1, "there is no way");

package Indent;

...
# ====================================================================
+=====

# EOF