What modern (post-5.10) trick can you use to create Data :: Dumper :: Simple work-like?

Question

There are several dump trucks that can display variable names without requiring the programmer to explicitly repeat the name.

› perl -MData::Dumper::Simple -e'my $foo = 42; print Dumper($foo)'
$foo = 42;

Cheating is a source filter (often interrupted).

› perl -MDDS -e'my $foo = 42; DumpLex $foo'
$foo = 42;

The deception is PadWalker.

They also work with other types of variables to some extent, but fragments or other complex expressions are problematic.

What modern (after 5.10) trickery can be used to make the next sample dump truck (as in: a data structure viewer, not a evalcode producer)? The main focus is always on typing beautiful names, accepting multiple expressions and there is no need to change expressions with an additional reference level.

use 5.020; use Syntax::Construct qw(%slice);
use strictures;
use Acme::Hypothetical::Dumper 'd';

my %foo = (
    Me => 'person',
    You => 'beloved one',
    Them => 'space aliens',
);

d %foo, $foo{'Me'}, @foo{qw(You Me)}, %foo{qw(You Me)};
# %foo = ('Me' => 'person', 'Them' => 'space aliens', 'You' => 'beloved one');
# $foo{'Me'} = 'person';
# @foo{qw(You Me)} = ('beloved one', 'person');
# %foo{qw(You Me)} = ('Me' => 'person', 'You' => 'beloved one');

my @bar = qw(Me You Them);

d @bar, $bar[0], @bar[2, 1], %bar[2, 1];
# @bar = ('Me', 'You', 'Them');
# $bar[0] = 'Me';
# @bar[2, 1] = ('Them', 'You');
# %bar[2, 1] = (2 => 'Them', 1 => 'You');

use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
d $ua->{ssl_opts}{verify_hostname};
# $ua->{ssl_opts}{verify_hostname} = 1;