my $word = qr,(\w+),a;
my $ct = qr,(?:\/ct/$word)?,a;
+ sub generic {
+ my ($thing, $ct, $fs) = @_;
+ $ct //= '', $fs //= '';
+ my $pkg = ucfirst $thing;
+ get qr,$ct/$thing/, => $pkg;
+ get qr,$ct/$thing/read, => "${pkg}::Read";
+ get qr,$ct/$thing/$word$fs, => "${pkg}::Entry";
+# post qr,$ct/$thing/$word/create, => "${pkg}::Entry::Create";
+ get qr,$ct/$thing/$word/read, => "${pkg}::Entry::Read";
+# post qr,$ct/$thing/$word/update, => "${pkg}::Entry::Update";
+# post qr,$ct/$thing/$word/delete, => "${pkg}::Entry::Delete";
+ }
+
get qr,/css/$word\.css, => 'CSS';
get qr,/js\.js, => 'JS';
- get qr,/ct/, => 'Ct';
- get qr,/ct/$word/, => 'Ct::Entry';
- get qr,/us/, => 'Us';
- get qr,/us/$word, => 'Us::Entry';
+ generic 'us';
+ generic ct => '', '/';
+ generic pb => $ct;
+ #generic log => $ct;
get qr,$ct/log/(\d+)?, => 'Log';
get qr,$ct/log/st, => 'St';
get qr,$ct/log/job/$word, => 'Log::Entry';
+ get qr,$ct/log/job/$word/read, => 'Log::Entry::Read';
get qr,$ct/log/src/$word\.$word, => 'Src';
- get qr,$ct/pb/, => 'Pb';
- get qr,$ct/pb/$word, => 'Pb::Entry';
post qr,$ct/pb/$word/submit, => 'Submit';
post qr,/action/register, => 'Register';