Model class with weaken App.

model.pl

#!/usr/bin/perl

# Run with command perl 1.pl get /

package AAA;

use Scalar::Util 'weaken';

sub new {
        my ($class, $app) = @_;
        my $hash = {app => $app};
        weaken $hash->{app};
        return bless $hash, $class;
}

sub run_asd { shift->{app}->asd }

package main;

use strict;
use warnings;

use Data::Dumper;
use Mojolicious::Lite;

use Scalar::Util 'weaken';

helper asd => sub { return "\n\nzxc\n\n" };

get '/' => sub {
        my $c = shift;

        my $a = AAA->new($c->app);
        $c->render(text => $a->run_asd);
};

app->start;