#!perl
use Test::More tests => 4;
use B 'svref_2object';
use B::Utils 'all_roots';
sub find_this { 1 }
{
# List context
my %roots = all_roots();
ok( $roots{'main::find_this'},
"Found root" );
is( ${svref_2object( \ &find_this )->ROOT},
${$roots{'main::find_this'}},
"Found correct root" );
}
{
# Scalar context
my $roots = all_roots();
ok( $roots->{'main::find_this'},
"Found root" );
is( ${svref_2object( \ &find_this )->ROOT},
${$roots->{'main::find_this'}},
"Found correct root" );
}