summaryrefslogblamecommitdiffhomepage
path: root/pkg/deb/debian.module/unit.example-perl-app
blob: 33be1d3ec4b26823117f91a7b5fe5a22fd1b010b (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12











                                                                          
#!/usr/bin/env perl

use Data::Dumper;

my $app = sub {
      my $env = shift;
      return [
          '200',
          [ 'Content-Type' => 'text/plain' ],
          [ "Hello from Unit, Perl $^V, environment:\n\n", Dumper($env) ],
      ];
};