| Subject: | apply_escapes doesn't complain if you pass in no flags |
sub apply_escapes
{
my $self = shift;
my $text = shift;
foreach my $flag (@_)
{
param_error "Invalid escape flag: $flag"
unless exists $self->{escapes}{$flag};
$self->{escapes}{$flag}->(\$text);
}
return $text;
}
It'd be nice if Mason generated a warning or error if @_ == 0, because
there seems to be a strong expectation that you don't need any flag to
get HTML escaping or something.
Shawn