@@ -23,7 +23,8 @@ sub source {
sub head {
my $self = shift;
my @head;
- push @head, sprintf "%s: %s\n", $_, $self->{meta}->{$_} foreach keys %{$self->{meta}};
+ push @head, sprintf "%s: %s\n", $_, $self->{meta}->{$_}
+ foreach keys %{$self->{meta}};
return join "", @head;
}