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;