https://mojolicious.org/perldoc/Mojolicious/Guides/Rendering#Embedded-Perl

<% Perl code %>
<%= Perl expression, replaced with XML escaped result %>
<%== Perl expression, replaced with result %>
<%# Comment, useful for debugging %>
<%% Replaced with "<%", useful for generating templates %>
% Perl code line, treated as "<% line =%>" (explained later)
%= Perl expression line, treated as "<%= line %>"
%== Perl expression line, treated as "<%== line %>"
%# Comment line, useful for debugging
%% Replaced with "%", useful for generating templates

Constructor

sub new {
  my $class = shift;
  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
}

sub new {
    my ($class, $aaa) = @_;
    my $self;
    if (ref($class) ne '' && $class->isa('my_expected_subclass')) {
        $self = $class;
    } else {
        $self = bless {class => $class}, $class;
    }
 
    $self->{xyz}      = $aaa;
 
    return $self;
}