diff options
Diffstat (limited to 'cddl/contrib/dtracetoolkit/Code/Perl/func_abc.pl')
-rwxr-xr-x | cddl/contrib/dtracetoolkit/Code/Perl/func_abc.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/cddl/contrib/dtracetoolkit/Code/Perl/func_abc.pl b/cddl/contrib/dtracetoolkit/Code/Perl/func_abc.pl new file mode 100755 index 0000000..394f1c2 --- /dev/null +++ b/cddl/contrib/dtracetoolkit/Code/Perl/func_abc.pl @@ -0,0 +1,20 @@ +#!./perl -w + +sub func_c { + print "Function C\n"; + sleep 1; +} + +sub func_b { + print "Function B\n"; + sleep 1; + func_c(); +} + +sub func_a { + print "Function A\n"; + sleep 1; + func_b(); +} + +func_a(); |