模擬具有多個包的Perl模塊

Question

我有以下場景，我需要模擬具有多個包的模塊中的子例程。

我的模塊（moddemo.pm）

package A; 

sub helloa 
{ 
    print "Hello, Im in demomod module of package A\n"; 
    return 1; 
} 

package B; 

sub hellob 
{ 
print "Hello, Im in demomod module of package B\n"; 
return 1; 
} 

1; 

我需要模擬A :: helloa（），B :: hellob（）子程序。這是我嘗試過的代碼，但失敗了。

#!/usr/bin/perl 
use Test::MockModule; 
use moddemo; 

{ 
my $mockobj = new Test::MockModule('moddemo'); 
$mockobj->mock('A::helloa', sub { print "This is mocked object calling helloa function\n"; }); 
$mockobj->mock('B::hellob', sub { print "This is mocked object calling hellob function\n";}); 
modobj::A::helloa(); 
modobj::B::hellob(); 
} 

任何幫助如何模擬這些子程序？提前致謝。

Answer 1

我已經通過重新定義子例程來完成它。

注：

• 的重新定義會導致一個警告，所以需要no warnings線擺脫這一點。
• 重新定義在本地應用，所以您應該看到只有塊內的子例程調用已更改。

Answer 2

我可能是錯的，但從我在module source中看到的情況來看，似乎不可能以您嘗試的方式使用它。 MockModule首先需要require s所需的包（.pm文件），然後只允許來自該包的子例程，即名稱中不允許有::。

據我瞭解，可以通過這種方式測試模塊一起使用（修改代碼以適應其預期）：

moddemo.pm：

package moddemo; 
use strict; 
use warnings; 

sub helloa 
{ 
     print "moddemo::helloa\n"; 
     return 1; 
} 

sub hellob 
{ 
     print "moddemo::hellob\n"; 
     return 1; 
} 

1; 

現在的測試文件，test.pl：

use strict; 
use warnings; 

use Test::MockModule; 
use moddemo; 

{ 
     my $mockobj = new Test::MockModule('moddemo'); 
     $mockobj->mock('helloa', sub { print "This is mocked object calling helloa function\n"; }); 
     $mockobj->mock('hellob', sub { print "This is mocked object calling hellob function\n";}); 

     # mocked versions 
     moddemo::helloa(); 
     moddemo::hellob(); 
} 

# now original versions 
moddemo::helloa(); 
moddemo::hellob(); 

最後輸出如預期：

This is mocked object calling helloa function 
This is mocked object calling hellob function 
moddemo::helloa 
moddemo::hellob