10 more tests for methods in Session/Style.pm

Refactored generateAdditionalHeadTags to remove two loops.
This commit is contained in:
Colin Kuskie 2006-10-05 03:40:39 +00:00
parent d7a90bd48d
commit 5920a6d482
2 changed files with 55 additions and 11 deletions

View file

@ -79,14 +79,8 @@ sub generateAdditionalHeadTags {
# generate additional raw tags
my $tags = $self->{_raw};
# generate additional link tags
foreach my $url (keys %{$self->{_link}}) {
$tags .= $self->{_link}{$url};
}
# generate additional javascript tags
foreach my $url (keys %{$self->{_javascript}}) {
$tags .= $self->{_javascript}{$url};
}
delete $self->{_meta};
$tags .= join '', values %{ $self->{_link} }, values %{ $self->{_javascript} };
delete $self->{_raw};
delete $self->{_javascript};
delete $self->{_link};