File: TestApp.pm

package info (click to toggle)
libdancer-plugin-dbic-perl 0.2104-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 176 kB
  • sloc: perl: 48; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 286 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
package t::lib::TestApp;

use Dancer;
use Dancer::Plugin::DBIC qw(rset);

get '/' => sub { rset('User')->count };

get '/user/:name' => sub { rset('User')->find( param 'name' )->name };

del '/user/:name' => sub {
    rset('User')->find( param 'name' )->delete;
    return 'ok';
};

1;