package Pastel
::Tools
::Writer
;
bless $self, ref($class) || $class;
$self->{_temp_buffer
} = "";
$self->{_inside_flag
} = "";
# print "Inside writer\n";
my @xml = split (//, $xml); #Split the whole string in characters
for (my $i=0; $i < @xml ; $i++) {
# print "Inside for loop\n";
$self->{_temp_buffer
} .= $xml[$i];
$self->{_inside_flag
} = "true";
if ($xml[$i+1] eq "!" && $xml[$i+2] eq "D"){
# if ($xml[$i+1] =~ /s/i){
# print "Indent $self->{_indent}\n";
$self->{_inside_flag
} = "";
# print "Inside end tag\n";
my $tab = $self->{_indent
};
print "$gap","$self->{_temp_buffer}","\n";
$self->{_temp_buffer
} ="";
if($xml[$i +1] eq ">"){ # && $self->{_inside_flag} eq "true") {
if($xml[$i +1] =~ /s/i && $self->{_inside_flag
} eq "true") {
# print "***********$self->{_indent}\n";
$self->{_indent
} = $indent;