File: Basic.pm

package info (click to toggle)
libmagpie-perl 1.141660-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 3,524 kB
  • ctags: 337
  • sloc: perl: 4,081; xml: 405; makefile: 26
file content (19 lines) | stat: -rw-r--r-- 323 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
package Magpie::Pipeline::Resource::Basic;
use Moose;
use Magpie::Constants;
extends 'Magpie::Resource';

sub GET {
    my $self = shift;
    my $ctxt = shift;
    $self->response->body('GET succeeded!');
    return OK;
}

before 'GET' => sub {
    my $self = shift;
    my $ctxt = shift;
    $ctxt->{modified} = 1;
};

1;