Select Code to Download

#!/usr/bin/perl
use strict;
...
g(42);
g();
g(42,99,333);

f called with 1 arguments: 42
f called with 1 arguments: 42
...
via g: f called with 1 arguments: 42
via g: f called with 0 arguments:
via g: f called with 3 arguments: 42, 99, 333