| 1 | # NOTE: Derived from blib/lib/Inline/denter.pm. |
| 2 | # Changes made here will be lost when autosplit is run again. |
| 3 | # See AutoSplit.pm. |
| 4 | package Inline::denter; |
| 5 | |
| 6 | #line 207 "blib/lib/Inline/denter.pm (autosplit into blib/lib/auto/Inline/denter/indent.al)" |
| 7 | sub indent { |
| 8 | my $o = shift; |
| 9 | my $package = caller; |
| 10 | $package = caller(1) if $package eq 'Inline::denter'; |
| 11 | my $stream = ''; |
| 12 | $o->{key} = ''; |
| 13 | while (@_) { |
| 14 | $_ = shift; |
| 15 | $stream .= $o->indent_name($_, shift), next |
| 16 | if (/^\*$package\::\w+$/); |
| 17 | $stream .= $o->indent_data($_); |
| 18 | } |
| 19 | return $stream; |
| 20 | } |
| 21 | |
| 22 | # end of Inline::denter::indent |
| 23 | 1; |