my (%vars) = $self->{cgi}->Vars;
while ( my ( $key, $value ) = each %vars ) {
my @values = split "\0", $value;
- $vars{$key} = @values == 1 ? $values[0] : \@values;
+ $vars{$key} = @values <= 1 ? $values[0] : \@values;
}
$self->{params} = {%vars};
$self->{query} = {%vars};
my $r = shift;
print $r->{cgi}->header(
-type => $r->{content_type},
- -charset => $r->{document_encoding},
+ -charset => $r->{document_encoding},
-content_length => length $r->{output},
);
print $r->{output};
package BeerDB;
use base 'CGI::Maypole;
BeerDB->setup("dbi:mysql:beerdb");
- BeerDB->config->{uri_base} = "http://your.site/cgi-bin/beer.cgi/";
- BeerDB->config->{display_tables} = [qw[beer brewery pub style]];
+ BeerDB->config->uri_base("http://your.site/cgi-bin/beer.cgi/");
+ BeerDB->config->display_tables([qw[beer brewery pub style]]);
# Now set up your database:
# has-a relationships
# untaint columns