use Maypole::Constants;
use Maypole::Headers;
-our $VERSION = '2.06';
+our $VERSION = '2.08';
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors(
sub parse_path {
my $self = shift;
$self->{path} ||= "frontpage";
- my @pi = split /\//, $self->{path};
- shift @pi while @pi and !$pi[0];
+ my @pi = $self->{path} =~ m{([^/]+)/?}g;
$self->{table} = shift @pi;
$self->{action} = shift @pi;
$self->{action} ||= "index";
Simon Cozens, C<simon#cpan.org>
-Sebastian Riedel, C<sri#oook.de> maintained Maypole from 1.8 to 2.04
+Sebastian Riedel, C<sri#oook.de> maintained Maypole from 1.99_01 to 2.04
=head1 THANKS TO