package Foo;

use PadWalker 'closed_over';

sub convert
{
    my ($package, $sub) = @_;
    my $vars            = closed_over( $sub );

    return join ', ', map { "$_ => $vars->{$_}" } keys %$vars;
}