# test merging of anon subs from evals

my $code = qq{ sub { print "sub called\n" } $Devel::NYTProf::StrEvalTestPad};

# call once from particular line
eval($code)->();

# call twice from the same line
eval($code)->(); eval($code)->();

# called from inside a string eval
eval q{
    eval($code)->(); eval($code)->();
};