perl -MDevel::Trace::Subs=install_trace -e 'install_trace(file => ".");'
####
use warnings;
use strict;
use Devel::Trace::Subs qw(trace_dump);
use Mock::Sub;
$ENV{DTS_ENABLE} = 1;
my $mock = Mock::Sub->new;
my $blah_sub = $mock->mock('blah');
blah();
trace_dump();
sub blah {
print "blah!\n";
}
##
##
Code flow:
1: Mock::Sub::new
2: Mock::Sub::mock
3: Mock::Sub::Child::new
4: Mock::Sub::Child::side_effect
5: Mock::Sub::Child::_check_side_effect
6: Mock::Sub::Child::return_value
7: Mock::Sub::Child::_mock
8: Mock::Sub::Child::name
9: Mock::Sub::Child::_check_side_effect
10: Mock::Sub::Child::__ANON__
Stack trace:
in: Mock::Sub::new
sub: -
file: mock.pl
line: 10
package: main
in: Mock::Sub::mock
sub: -
file: mock.pl
line: 11
package: main
in: Mock::Sub::Child::new
sub: Mock::Sub::mock
file: /usr/local/share/perl/5.18.2/Mock/Sub.pm
line: 50
package: Mock::Sub
in: Mock::Sub::Child::side_effect
sub: Mock::Sub::mock
file: /usr/local/share/perl/5.18.2/Mock/Sub.pm
line: 52
package: Mock::Sub
in: Mock::Sub::Child::_check_side_effect
sub: Mock::Sub::Child::side_effect
file: /usr/local/share/perl/5.18.2/Mock/Sub/Child.pm
line: 185
package: Mock::Sub::Child
in: Mock::Sub::Child::return_value
sub: Mock::Sub::mock
file: /usr/local/share/perl/5.18.2/Mock/Sub.pm
line: 53
package: Mock::Sub
in: Mock::Sub::Child::_mock
sub: Mock::Sub::mock
file: /usr/local/share/perl/5.18.2/Mock/Sub.pm
line: 56
package: Mock::Sub
in: Mock::Sub::Child::name
sub: Mock::Sub::Child::_mock
file: /usr/local/share/perl/5.18.2/Mock/Sub/Child.pm
line: 49
package: Mock::Sub::Child
in: Mock::Sub::Child::_check_side_effect
sub: Mock::Sub::Child::_mock
file: /usr/local/share/perl/5.18.2/Mock/Sub/Child.pm
line: 81
package: Mock::Sub::Child
in: Mock::Sub::Child::__ANON__
sub: -
file: mock.pl
line: 13
package: main