The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package CGI::Snapp::Dispatch::SubClass3;

use parent 'CGI::Snapp::Dispatch';
use strict;
use warnings;

our $VERSION = '1.04';

# --------------------------------------------------

sub dispatch_args
{
	my($self, $args) = @_;

	return
	{
		prefix  => 'CGI::Snapp',
		table   =>
		[
			'foo/bar'        => {app => 'Snapp::App2', rm => 'rm2', prefix => 'CGI'},
			'foo/:rm'        => {app => 'Snapp::App2', rm => 'rm2', prefix => 'CGI'},
			'/app2/:rm[get]' => {app => 'App2'},
			':app/:rm[put]'  => {},
		],
    };

} # End of dispatch_args.

# --------------------------------------------------

1;