lib/SysIface/Context.pm

package SysIface::Context;
 
use strict;
use warnings;
 
use base 'Mojolicious::Context';

sub param {
        my $self = shift;
        $self->req->params->param( shift );
}

sub title {
        my $self = shift;
        $self->req->params->param( 'hostname' );
}

1;
1	package SysIface::Context;
2
3	use strict;
4	use warnings;
5
6	use base 'Mojolicious::Context';
7
8	sub param {
9	my $self = shift;
10	$self->req->params->param( shift );
11	}
12
13	sub title {
14	my $self = shift;
15	$self->req->params->param( 'hostname' );
16	}
17
18	1;