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