Unfortunately,Devel::Cover does not yet work with threads.

它也不适用于prefork.

在startup.pl中使用,Devel :: Cover问题

Not a CODE reference.
END Failed--call queue aborted.

perl 5.8.9,Apache 2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reported for win32.

更新:PerlTrace全部输出

copying config
restarting apache
mod_perl trace flags dump:
 a On  (Apache API interaction)
 c On  (configuration for directive handlers)
 d On  (directive processing)
 e On  (environment variables)
 f On  (filters)
 g On  (globals management)
 h On  (handlers)
 i On  (interpreter pool management)
 m On  (memory allocations)
 o On  (I/O)
 r On  (Perl runtime interaction)
 s On  (Perl sections)
 t On  (benchmark-ish timings)
modperl_cmd_requires: push PerlRequire /usr/local/www/apache22/data/startup.pl
modperl_cmd_switches: arg = -I/usr/local/www/apache22/data/PMs
modperl_cmd_switches: arg = -I/usr/local/www/apache22/data/project/lib_core
modperl_cmd_modules: push PerlModule Apache::DBI
modperl_config_dir_new: new dcfg: 0x284d3d48
modperl_config_dir_create: dir \.(cgi|pl)$
modperl_cmd_response_handlers: push @PerlResponseHandler,ModPerl::Registry
modperl_handler_new: [47836] new handler ModPerl::Registry
modperl_cmd_push_handlers: created handler stack
modperl_cmd_push_handlers: pushed handler: ModPerl::Registry
modperl_cmd_options: arg = +ParseHeaders
httpd not running,trying to start
modperl_hook_init: mod_perl hook init
modperl_sys_init: mod_perl sys init
MpSrv flags dump (cdev01.project.local):
 Access On 
 Authen On 
 Authz On 
 Autoload Off
 ChildExit On 
 ChildInit On 
 Cleanup On 
 Clone Off
 Enable On 
 Fixup On 
 HeaderParser On 
 InheritSwitches Off
 InputFilter On 
 Log On 
 MapToStorage On 
 MergeHandlers Off
 OpenLogs On 
 OutputFilter On 
 Parent Off
 PostConfig On 
 PostReadRequest On 
 preconnection On 
 ProcessConnection On 
 Response On 
 Trans On 
 Type On 
 Unset On 
modperl_startup: starting the parent perl for the base server
modperl_config_srv_argv_init =>
   0 = /usr/local/sbin/httpd
   1 = -I/usr/local/www/apache22/data/PMs
   2 = -I/usr/local/www/apache22/data/project/lib_core
   3 = -e;0
modperl_env_clear: [0x28f2a000] %ENV = ();
modperl_env_default_populate: $ENV{MOD_PERL} = "mod_perl/2.0.4";
modperl_env_default_populate: $ENV{MOD_PERL_API_VERSION} = "2";
modperl_env_configure_server:   [47836/0x28f2a000/cdev01.project.local:80]
    @ENV{keys scfg->SetEnv} = values scfg->SetEnv;
modperl_env_configure_server:   [47836/0x28f2a000/cdev01.project.local:80]
    @ENV{keys scfg->PassEnv} = values scfg->PassEnv;
modperl_env_table_populate: $ENV{PATH} = "/usr/local/www/apache22/data/testing/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin";
modperl_interp_init: server=cdev01.project.local:80
modperl_interp_new: 0x28f47480 / perl: 0x0 / parent perl: 0x0
modperl_startup: constructed interpreter=0x28f2a000
modperl_handler_anon_init: init $PL_modglobal{ANONSUB} = []
Devel::Cover 0.65: Collecting coverage data for branch,condition,pod,statement,subroutine and time.
    Collecting under mod_perl/2.0.4
Selecting packages matching:
Ignoring packages matching:
    /Devel/Cover[./]
    /Net/OpenSSH[./]
Ignoring packages in:
    .
    /usr/local/lib/perl5/5.8.9
    /usr/local/lib/perl5/5.8.9/BSDPAN
    /usr/local/lib/perl5/5.8.9/mach
    /usr/local/lib/perl5/site_perl/5.8.9
    /usr/local/lib/perl5/site_perl/5.8.9/mach
modperl_config_apply_PerlRequire: loaded Perl file: /usr/local/www/apache22/data/startup.pl for server cdev01.project.local:80
modperl_config_apply_PerlModule: loaded Perl module Apache::DBI for server cdev01.project.local:80
modperl_init_vhost: Init vhost cdev01.project.local:4443: s=0x284d8500,base_s=0x28413a40
modperl_init_vhost: server cdev01.project.local:4443 already initialized
modperl_init_vhost: Init vhost cdev01.project.local:443: s=0x284d5c78,base_s=0x28413a40
modperl_init_vhost: server cdev01.project.local:443 already initialized
modperl_callback_run_handlers: no PerlOpenLogsHandler handlers configured ()
modperl_callback_run_handlers: no PerlPostConfigHandler handlers configured ()
modperl_env_hash_keys: [0x28f2a000] PERL_HASH: MOD_PERL (len: 8)
modperl_env_hash_keys: [0x28f2a000] PERL_HASH: MOD_PERL_API_VERSION (len: 20)
modperl_init_clones: no clones created for non-threaded mpm
modperl_interp_pool_destroy: parent == 0x28f47480
modperl_interp_destroy: interp == 0x28f47480 / perl: 0x28f2a000
modperl_xs_dl_handles_get: B dl handle == 0x28ca9600
modperl_xs_dl_handles_get: Cwd dl handle == 0x28ca9800
modperl_xs_dl_handles_get: List::Util dl handle == 0x28ca9a00
modperl_xs_dl_handles_get: Digest::MD5 dl handle == 0x28ca9c00
modperl_xs_dl_handles_get: IO dl handle == 0x28ca9e00
modperl_xs_dl_handles_get: Fcntl dl handle == 0x28caa000
modperl_xs_dl_handles_get: Storable dl handle == 0x28caa200
modperl_xs_dl_handles_get: File::Glob dl handle == 0x28caa400
modperl_xs_dl_handles_get: Data::Dumper dl handle == 0x28caa600
modperl_xs_dl_handles_get: Devel::Cover dl handle == 0x28caa800
modperl_xs_dl_handles_get: Apache2::Module dl handle == 0x28caaa00
modperl_xs_dl_handles_get: Apache2::RequestUtil dl handle == 0x28caac00
modperl_xs_dl_handles_get: Apache2::ServerUtil dl handle == 0x28caae00
modperl_xs_dl_handles_get: DBI dl handle == 0x28cac000
modperl_perl_call_list: pid 47836/tid 0x28401040/perl id 0x28f2a000 running 4 END subs
Not a CODE reference.
END Failed--call queue aborted.

解决方法

邪恶之源似乎是Apache :: DBI.我从配置文件中注释出来,httpd开始.

不幸的是,更多的障碍来了(No coverage for runtime with Devel::Cover and ModPerl::Registry

如何在mod_perl2下运行Devel :: Cover?的更多相关文章

  1. Swift快速入门五集合

    相关文章Swift快速入门(一)第一个Swift程序Swift快速入门(二)基本数据类型Swift快速入门(三)运算符Swift快速入门(四)流程控制前言Swift提供了数组和字典两种集合类型来存储数据,Swift的数组用来存储顺序相同类型相同的类型,字典则采用kay-value的形式存储数据。修改字典字典提供了updataValue()方法来修改字典的value值,该方法会返回一个Sting?

  2. PHP与Perl之间知识点区别整理

    在本篇文章里小编给大家分享了关于PHP与Perl的却别以及相关知识点整理,有兴趣的朋友们学习下。

  3. windows – 如何从Perl程序中设置cmd.exe窗口的大小?

    我有一个在Windows中运行的Perl脚本,显示屏幕很长的行.我不想永久修复我的控制台大小.我只是希望它在这个脚本运行时很大.有没有办法在这个窗口内运行的Perl脚本中定义控制台的大小?您可以使用mode命令设置正在运行的控制台的控制台大小:更改将仅持续到控制台窗口关闭.

  4. windows – 在perl中的fork实现

    我想在perl中执行子进程.我还希望我的代码与平台无关.问题是在Windows中perl实现fork,是一个伪进程,实际上是一个线程.请参阅windowshere的perlfork仿真.它还提到了在伪进程上执行kill和exec命令时出现的问题.在不同平台上使用两个不同版本的fork是否安全,还是应该使用特定于操作系统的API?

  5. 尝试在Windows 7上安装MinGW和Tk for Perl

    我一直试图让这个工作几个星期了.我可以通过.exe安装MinGW,但不管我做什么我似乎无法获得支持或ppm安装MinGW以这样的方式工作,以便我的编译Tk-804.029将正确使用’make’命令.(安装Perl模块:>perlMakeFile.PL–工作正常>make或dmake–我无法让MinGW正确关联Make或DMake(在MinGW/bin目录中找不到正确的.exe…我尝试过使用-32bitmingw32-make.exe但是这会导致与编译的头文件有关的错误.)ppm安装MinGW也不行,似乎觉

  6. perlbrew在Windows上运行吗?

    在WindowsXP上使用ActiveState5.8.8,我想安装一个更新的Perl用于测试/迁移.总有一天,当我们认为只限于一台计算机时,我们就会过时.当我想测试这种东西时,我会制作虚拟机.我保持一个干净的基础安装,制作那些东西的副本,以多种方式配置它们,然后根据我的喜好将它们炸掉.如果我做了一件坏事,我可以轻松地回到基本安装或恢复到快照.我有几个Windows虚拟机只用于此用途(并且它们在我

  7. 在Windows上处理Perl中的unicode目录和文件名

    我有Perl和Windows的编码问题.在运行Perl的Windows7(草莓5.16)和简单的TKGUI上,我需要打开文件和/或访问名称/路径中包含非英文字符的目录.对于打开文件我已经提出这个解决方案似乎工作正常:这会正确打开Поиск/Поиск.txt等文件我不能做的只是获取目录路径而不是处理它.我想我应该使用Win32::Unicode::Dir,但我真的无法理解文档.它应该是这样的:在以

  8. 如何将具有UTF-8文件名的文件复制到Windows上的Perl中的另一个UTF-8文件名?

    例如,给定一个空文件テスト.txt,如何制作一个名为テスト.txt.copy的副本?)应该可以使用Win32API::File的CopyFileW功能,这应该包含在草莓中.我自己从未搞过Unicode文件名,所以我不确定细节.您可能需要使用Encode手动将文件名转换为UTF-16LE.

  9. windows – 在Perl脚本中播放声音

    我正在尝试将声音添加到Perl脚本以提醒用户该事务处于正常状态.我希望尽可能保持便携,因为脚本在Windows和Linux工作站上运行.我可以对于Windows.但我不确定如何在Linux上调用泛型声音.到目前为止,我已经想到了但我不确定我是否可以指望这条路可用.那么,有三个问题:>有没有更好的方法来调用Gnome中的默认声音>这条路是非常普遍的>播放声音后,paplay需要一段时间才能退出,是否有更好的方式来呼叫它?

  10. windows – 如何阻止Perl程序在完成后关闭窗口?

    如何在Windows中执行完后停止我的Perl程序关闭窗口?我可以运行一个HelloWorld程序,但它实际上读得太快了.似乎是我能找到的唯一解决方案,但我认为有更好的方法可以做到这一点.从Windows命令提示符运行脚本,而不是单击资源管理器中的图标.当您通过单击图标运行控制台模式程序时,Windows将打开该程序的窗口,运行它,然后关闭窗口.从命令提示符运行控制台模式程序时,窗口将不会关闭:

随机推荐

  1. 数组 – Perl中有什么神奇的数组?

    在Perldocumentationforreverse中,我发现:“请注意,将数组反转到自身(如@a=reverse@a)将尽可能保留不存在的元素;即对于非魔法数组或具有EXISTS和DELETE方法的绑定数组.什么属性区分神奇和非魔法阵列?解决方法一个神奇的阵列是一个执行它的操作不仅仅是改变内容.只有内置的魔术阵列是@ISA,而且这是非常不明显的.正如句子所暗示的,魔术阵列主要是一个绑定的阵列

  2. perl – 使用“isa”方法的最佳方式?

    什么是“最好的”使用方式“isa()”可靠?解决方法Scalar::Util实现明确更好.它避免了eval{}的开销,它总是导致设置一个附加变量.Scalar::Util实现更容易阅读.如果eval也失败了,我相信发生的是你在树之前向后走到eval之前的状态–这是如何实现复位状态.这带来了额外的故障开销.基准根本不是一个对象对象传递isa检查对象出现故障现象检查测试代码:我使用这是为i486-linux-gnu-thread-multi建立的perl,v5.10.1(*),以及Scalar::Util,1

  3. 在CORE :: GLOBAL中哪些Perl内置函数不能被覆盖?

    解决方法toke.c中任何值为负的值都可以被覆盖;所有其他人可能不会.你可以看源码here.例如,我们来看看第10,396行的waitpid:由于waitpid为负数,因此可能会被覆盖.grep怎么样?这是积极的,所以不能被覆盖.这意味着以下关键字不能被覆盖:chop,defined,delete,do,dump,each,else,elsif,eval,exists,for,foreach,format,glob,goto,grep,if,keys,last,local,m,map,my,next,no

  4. 如何在Perl中打印由换行符分隔的列表元素?

    什么是最简单的打印所有列表的元素以Perl中的换行符分隔的元素?解决方法在Perl5.10中:其他方式:或:或者怎么样?

  5. 使用Perl如何获取文件大小(以兆字节为单位)?

    我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意:我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数?

  6. perl – 如何测试/分类CPAN模块的utf8正确性

    例如:File::Slurp,如果你将读取该文件您将根据命令行开关获得不同的结果,并且perl-CSDA将无法正常工作.伤心.(是的,我知道比Encode::decode(“utf8”,read_file($file,binmode=>’:raw’));将帮助,但是SAD.我的问题:>在这里任何首选方式,如何测试/分类什么CPAN模块是utf8安全/准备/正确?>这里是像Perl::Criticforutf8这样的东西–什么将检查模块源可能的utf8不正确?总结以上是DEVMAX为你收集整理的perl–如

  7. 如何删除Perl字符串中的空格?

    如果我声明一个值为’3’的变量$myString.是否有任何功能来删除返回值的空格.有点像SomeFun然后返回’3′.输出:你可以注意到’vid’=>‘0’,上面的代码从theanswer.我正在研究它.总结以上是DEVMAX为你收集整理的如何删除Perl字符串中的空格?如果觉得DEVMAX网站内容还不错,欢迎将DEVMAX网站推荐给好友。

  8. 如何在mod_perl2下运行Devel :: Cover?

    Unfortunately,Devel::Coverdoesnotyetworkwiththreads.它也不适用于prefork.在startup.pl中使用,Devel::Cover问题perl5.8.9,Apache2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reportedforwin32.更新:PerlTrace全部输出解决方法邪恶之源似乎是Apache::DBI.

  9. 如何使用Perl中的C类?

    我有一套用C写的课.从Perl脚本中调用它们的最佳方法是什么?

  10. perl – 在Emacs中以双模式更好的缩进

    我正在使用Emacs来修改Perl和Verilog交织的代码.我正在使用two-mode-mode在两者之间切换,这样可以预期.问题是perl代码与//一行一行地表示;如下图所示:而双模式则认识到它是Perl,它是逐行的,所以缩进等在线上无意义.我想做的是使Perl代码像往常一样格式化,但忽略//;字符.有什么想法吗?我刚刚开始偷看模式文件,它们是可以理解的复杂的,所以任何提示都不会感激!

返回
顶部