passing_in_undef.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump 'pp';

sub foo {
    my %args = (
        @_
    );

    if (exists($args{bar})) {
        print "You passed in bar: ".pp($args{bar})."\n";
    }
    else {
        print "No bar here! \n";
    }
};

foo( bar => undef );

foo;