added rewrite_path()

[maypole.git] / lib / Maypole.pm

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 9c67ad6be2329e7791fcfb0b0dd9c6a6471c7892..7ab6cb31f6d058146f4fc5ba518f8652aec98625 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -130,8 +130,9 @@ sub is_applicable {
     $config->ok_tables || $config->ok_tables( $config->display_tables );
     $config->ok_tables( { map { $_ => 1 } @{ $config->ok_tables } } )
       if ref $config->ok_tables eq "ARRAY";
-    warn "We don't have that table ($self->{table}).\n".
-    "Available tables are: ".join (",", @{ $config->{display_tables} })
+    warn "We don't have that table ($self->{table}).\n"
+      . "Available tables are: "
+      . join( ",", @{ $config->{display_tables} } )
       if $self->debug
       and not $config->ok_tables->{ $self->{table} };
     return DECLINED() unless exists $config->ok_tables->{ $self->{table} };
@@ -172,6 +173,8 @@ sub authenticate { return OK }
 
 sub exception { return ERROR }
 
+sub rewrite_path { }
+
 sub parse_path {
     my $self = shift;
     $self->{path} ||= "frontpage";