#!perl
use Test::More tests => 4;
use B 'svref_2object';
use B::Utils 'all_starts';

sub find_this { 1 }

{
    # List context
    my %starts = all_starts();
    ok( $starts{'main::find_this'},
        "Found start" );
    is( ${svref_2object( \ &find_this )->START},
        ${$starts{'main::find_this'}},
        "Found correct start" );
}
{
    # Scalar context
    my $starts = all_starts();
    ok( $starts->{'main::find_this'},
        "Found start" );
    is( ${svref_2object( \ &find_this )->START},
        ${$starts->{'main::find_this'}},
        "Found correct start" );
}