Select Code to Download

sub test_function {
    my $ref = shift;    # this function takes one argument, a ref to a
+n ARRAY
...
    # Not necessarily recommended: shown for educational purposes.
    defined($ref) or die "oops: you did not pass any arguments";
    @_ and die "oops: this function takes exactly one argument";

use strict;
use warnings;
...
   test_function(undef);
};
say $@;

X:\>perl foo.pl
Calling test_function with no arguments:
...


X:\>

use strict;
use warnings;
...
   test_function(undef);
};
say $@;

X:\>perl foo.pl
Calling test_function with no arguments:
...


X:\>