lib/SysIface/Example.pm

package SysIface::Example;

use strict;
use warnings;

use base 'Mojolicious::Controller';

use File::Slurp;

# This action will render a template
sub welcome {
    my $self = shift;

    # Render template "example/welcome.html.epl" with message and layout
    $self->render(
        layout  => 'default',
        message => 'Welcome to the Mojolicious Web Framework!',
                commands => [ read_file('sh/commands.sh') ],
    );
}

sub atsar {
    my $self = shift;
    $self->render(
        layout  => 'default',
                commands => [ 'atsar -n 1' ],
        );
}

1;
1	package SysIface::Example;
2
3	use strict;
4	use warnings;
5
6	use base 'Mojolicious::Controller';
7
8	use File::Slurp;
9
10	# This action will render a template
11	sub welcome {
12	my $self = shift;
13
14	# Render template "example/welcome.html.epl" with message and layout
15	$self->render(
16	layout => 'default',
17	message => 'Welcome to the Mojolicious Web Framework!',
18	commands => [ read_file('sh/commands.sh') ],
19	);
20	}
21
22	sub atsar {
23	my $self = shift;
24	$self->render(
25	layout => 'default',
26	commands => [ 'atsar -n 1' ],
27	);
28	}
29
30	1;