#!/usr/bin/env perlusestrict;usewarnings;useTest::More;uselib't/fun/lib';BEGIN{if(!eval{requireSub::Name}){planskip_all=>"This test requires Sub::Name";}}useFun;my$fun=fun($x,$y){$x*$y};is($fun->(3,4),12);my$fun2=fun($z,$w=10){$z/$w};is($fun2->(60),6);done_testing;