web - 使用zef安装模块后如何编辑模块中的源代码?
问题描述
例如,当我运行我的简单代码时,我已经安装了Cro模块:
my %headers = {Authorization => OAuth realm="", oauth_consumer_key="xxxxxxxxxxxxxxxx", oauth_nonce="29515362", oauth_signature="KojMlteEAHlYjMcLc6LFiOwRnJ8%3D", oauth_signature_method="HMAC-SHA1", oauth_timestamp="1525913154", oauth_token="xxxx-xxxxxxxxxxxxxxxxxx", oauth_version="1.0", User-Agent => Cro};
my $resp = await Cro::HTTP::Client.get: 'http://api.fanfou.com/statuses/home_timeline.json',
headers => [
user-agent => 'Cro',
content-type => 'application/json;charset=UTF-8',
|%headers
];
say $resp.header('content-type'); # Output: application/json; charset=utf-8;
my Str $text = await $resp.body-text();
它说'无法解析媒体类型application/json; charset=utf-8;
Died with the exception:
Could not parse media type 'application/json; charset=utf-8;'
in method parse at /Users/ohmycloud/.perl6/sources/5B710DB8DF7799BC8B40647E4F9945BCB8745B69 (Cro::MediaType) line 74
in method content-type at /Users/ohmycloud/.perl6/sources/427E29691A1F7367C23E3F4FE63E7BDB1C5D7F63 (Cro::HTTP::Message) line 74
in method body-text-encoding at /Users/ohmycloud/.perl6/sources/427E29691A1F7367C23E3F4FE63E7BDB1C5D7F63 (Cro::HTTP::Message) line 83
in block at /Users/ohmycloud/.perl6/sources/F870148C579AB45DEB39F02722B617776C3D6D5F (Cro::MessageWithBody) line 49
似乎这application/json; charset=utf8;
不是有效的content-type
,所以我添加了一个测试:
use Cro::MediaType;
use Test;
sub parses($media-type, $desc, &checks) {
my $parsed;
lives-ok { $parsed = Cro::MediaType.parse($media-type) }, $desc;
checks($parsed) if $parsed;
}
parses 'application/json; charset=utf-8;', 'application/json media type with charset', {
is .type, 'application', 'Correct type';
is .subtype, 'json', 'Correct subtype';
is .subtype-name, 'json', 'Correct subtype name';
is .tree, '', 'No tree';
is .suffix, '', 'No suffix';
is .Str, 'application/json; charset=utf-8;', 'Stringifies correctly';
};
done-testing;
输出是:
not ok 1 - application/json media type with charset
# Failed test 'application/json media type with charset'
# at cro_media.pl6 line 6
# Could not parse media type 'application/json; charset=utf-8;'
1..1
# Looks like you failed 1 test of 1
源代码似乎位于/Users/ohmycloud/.perl6/sources/5B710DB8DF7799BC8B40647E4F9945BCB8745B69
文件中,我';'?
在TOP
令牌后添加:
token TOP { <media-type> ';'? }
保存,然后再次运行我的代码,但错误是一样的。那么如何让改变发挥作用呢?在 Perl 5 中,我只能编辑我的.pm
模块,但在 Perl 6 中,我不知道该怎么做。
解决方案
在zef's issues 的这个答案中,他们声明“安装是不可变的”。如果您从其源下载 Cro,修补并重新安装,以便您的应用程序选择新版本,这可能是一个更好的选择。
'application/json' 也可能不承认该字符集声明,或者 ; 后面不应该有空格。但这里的主要问题是一旦安装就不应编辑模块。
推荐阅读
- lua - Lua协程,无法恢复死协程
- android - 使用数据绑定时,SwipeRefreshLayout 进度不隐藏
- azure-devops - 在 VSTS 发布管道中发布 HTML 测试报告
- node.js - Braintree 服务器端 - 客户端令牌和验证付款
- android - 将复选框设置为禁用或可单击设置为 false 禁用动画
- python - 在 Python 中使用多处理时如何共享自定义变量?
- visual-studio-code - 如何在测试中选择 QuickPick 中的项目?
- python - 无法使用 django-allauth 将 django 应用程序部署到 heroku
- linux - 我的期望脚本如何从我的配置文件中设置参数
- tensorflow - TensorFlow 估计器多 GPU 预测