#!/usr/bin/perl6
use v6;

=begin pod

Use the :delete adverb

once it will be implemented in Rakudo. (TODO)

=end pod

my %person = (
    fname => 'Foo',
    lname => 'Bar',
);

say %person{'fname'} ?? "fname exists" !! "fname is missing";
say %person{'lname'} ?? "lname exists" !! "lname is missing";
say %person{'email'} ?? "email exists" !! "email is missing";
#my $lname = %person{'lname'} :delete;
#say %person{'fname'} ?? "fname exists" !! "fname is missing";
#say %person{'lname'} ?? "lname exists" !! "lname is missing";
#say $lname;
#