...
Code Block | ||
---|---|---|
| ||
# Пэкэдэ <Module>::Api::(admin | user)::<Controller> package Portal::Api::admin::Articles; =head1 NAME Portal articles manage Endpoints: /portal/articles/* =cut use strict; use warnings FATAL => 'all'; # Словарь ошибок use Control::Errors; # Грузим нужные депенденси для этого контроллера use Portal; # Создаём объект словаря ошибок my Control::Errors $Errors; # Создаём объект(ы) депенденси my Portal $Portal; # Дополнительно: определяем permissions my %permissions = (); # TODO: make this centralized and more maintainable my @allowed_methods = (5, 6, 10); #********************************************************** =head2 new($db, $admin, $conf) =cut #********************************************************** sub new { my ($class, $db, $admin, $conf, $attr) = @_; my $self = { db => $db, admin => $admin, conf => $conf, attr => $attr }; %permissions = %{$attr->{permissions} || {}}; bless($self, $class); # Определяем депенденси $Portal = Portal->new($db, $admin, $conf); # Забираем "предустановленный" словарь ошибок $Errors = $self->{attr}->{Errors}; return $self; } # И дальше пишем пути # 1; |
...