使用 Mojo::Base 从模块访问 Mojolicious 助手？

Question

我有一个现有的应用程序（我的网站），我正在做一些代码整理，整理遵循与 Mojo::Pg example here 相同的想法，使用单独的模型和控制器文件保持事物的定义。我的站点同时访问 Flickr 和 Last.fm 的 API，并且我在 Site::Helpers:

中定义了一个助手

$app->helper(
    get_base_rest_url => sub {
        my ( $self, $config ) =  @_;

        sswitch ( $config ) {
            case 'photos': {
                my $base_url = 'https://api.flickr.com/services/rest/';
                my $user_id  = '7281432@N05';
                my $api_key  = $self->app->config->{ 'api_token' }{ 'flickr' };

                my $url =
                    "$base_url"
                    . "?user_id=$user_id"
                    . "&api_key=$api_key"
                    . "&per_page=" . $self->session->{ per_page }
                    . '&format=json'
                    . '&nojsoncallback=1';

                return $url;
            }

            case 'music': {
                my $base_url = 'https://ws.audioscrobbler.com/2.0/';
                my $username = 'virtualwolf';
                my $api_key  = $self->app->config->{ 'api_token' }{ 'last_fm' };
                my $per_page = $self->session->{ 'per_page' };

                my $url = "$base_url?user=$username&limit=$per_page&api_key=$api_key&format=json";

                return $url;
            }
        }
    }
);

我运行遇到的问题是我不知道如何从 Site::Model::Photos 模块访问该助手。错误是

Can't locate object method "get_base_rest_url" via package "Site::Model::Photos"

这很公平，但我无法弄清楚如何真正获得 get_base_rest_url 帮助程序（或者，如何访问 api_token 配置）。

Answer 1

问题是您的模块没有应用 attribute/method 可以访问您的应用。

因此，当您创建 Site::Model::Photos 的实例时，您需要在参数中将 app 传递给它并使其削弱类似这样的东西：

package Site::Model::Photos
use Scalar::Util 'weaken';
sub new {
  my $class = shift;
  my $app = shift;
  my $hash = {app => $app, ...};
  weaken $hash->{app};
  return bless $hash, $class;
}

sub your_method {
  my $self = shift;
  $self->{app}->get_base_rest_url(...);
}

1;

或者您可以使用此模块 https://metacpan.org/release/Mojolicious-Plugin-Model 为您完成：

package Site::Model::Photos
use Mojo::Base 'MojoX::Model';

... code of your module ...

sub your_method {
  my $self = shift;
  $self->app->get_base_rest_url(...);
}

1;

并且在您的 App.pm 中需要添加：

$app->plugin('Model', {namespaces => ['Site::Model']});

并在控制器中使用它：

$c->model('photos');
$c->app->model('photos');

使用 Mojo::Base 从模块访问 Mojolicious 助手？

Accessing Mojolicious helpers from a module using Mojo::Base?

perl

mojolicious