Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / auto / Inline / denter / indent.al

# NOTE: Derived from blib/lib/Inline/denter.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Inline::denter;

#line 207 "blib/lib/Inline/denter.pm (autosplit into blib/lib/auto/Inline/denter/indent.al)"
sub indent {
   my $o = shift;
   my $package = caller;
   $package = caller(1) if $package eq 'Inline::denter';
   my $stream = '';
   $o->{key} = '';
   while (@_) {
       $_ = shift;
       $stream .= $o->indent_name($_, shift), next
         if (/^\*$package\::\w+$/);
       $stream .= $o->indent_data($_);
   }
   return $stream;
}

# end of Inline::denter::indent
1;