view release on metacpan or  search on metacpan

lib/XML/Filter/DataIndenter.pm  view on Meta::CPAN

    my $content = delete $ctx->{Content};
    return unless defined $content;

    while ( @$content ) {
        my $event = shift @$content;

        my $method = shift @$event;

        next if $method eq "characters"
            ||  $method eq "start_cdata"
            ||  $method eq "end_cdata";

        if ( $method eq "comment" || $method eq "processing_instruction") {
            my $indent = $self->{Indent} x @{$self->{Stack}};
            $self->SUPER::characters( { Data => "\n$indent" } );
        }

        $method = "SUPER::$method";
        $self->$method( @$event );
    }
}