92 |
=cut |
=cut |
93 |
|
|
94 |
sub _s { |
sub _s { |
95 |
my $text = $_[1] || return; |
my $text = $_[1]; |
96 |
|
return unless defined($text); |
97 |
$text =~ s/\s\s+/ /gs; |
$text =~ s/\s\s+/ /gs; |
98 |
$text =~ s/^\s+//; |
$text =~ s/^\s+//; |
99 |
$text =~ s/\s+$//; |
$text =~ s/\s+$//; |
321 |
my $draft; |
my $draft; |
322 |
|
|
323 |
foreach my $attr_name (sort keys %{ $self->{attrs} }) { |
foreach my $attr_name (sort keys %{ $self->{attrs} }) { |
324 |
next unless(my $v = $self->{attrs}->{$attr_name}); |
next unless defined(my $v = $self->{attrs}->{$attr_name}); |
325 |
$draft .= $attr_name . '=' . $v . "\n"; |
$draft .= $attr_name . '=' . $v . "\n"; |
326 |
} |
} |
327 |
|
|