# This file:
#   https://anggtwu.net/PERL/printcontext.pl.html
#   https://anggtwu.net/PERL/printcontext.pl
#           (find-angg "PERL/printcontext.pl")
# Author: mauke (from #perl@irc.libera.chat)
# Small changes by: Eduardo Ochs <eduardoochs@gmail.com>

sub printcontext {
    my $w = wantarray;
    if ($w)            { print "list\n";   return 40,20; }
    elsif (defined $w) { print "scalar\n"; return 42; }
    else               { print "void\n"; }
}

return 1;

=begin comment
* (eepitch-perl)
* (eepitch-kill)
* (eepitch-perl)
do "./printcontext.pl" or die "ERROR: $@"

$one  = printcontext();       # -> scalar
@many = printcontext();       # -> list
        printcontext(); ();   # -> void

=cut






# Local Variables:
# coding:  utf-8-unix
# End: