package TestAppPath;
use base 'CGI::Application';
use CGI::Application::Plugin::ActionDispatch;
@TestApp::ISA = qw(CGI::Application);
sub test_rm : Path('/products/music/rolling_stones/') {
my $self = shift;
my( @args ) = $self->action_args();
return "Runmode: test_rm\nArgs: " . join(" ", @args);
}
sub test_rm_exact : Path('products/music/miles_davis') {
my $self = shift;
my @args = $self->action_args();
my $return = join(" ", @args) if @args;
return "Runmode: test_rm_exact\nArgs: " . $return . "no args";
}
sub test_rm_partial : Path('products/music/beatles') {
my $self = shift;
my( @args ) = $self->action_args();
return "Runmode: test_rm_partial\nArgs: " . join(" ", @args);
}