defer_info($deferred_str), undef,
'defer_info on expired deferred named sub gives undef';
isnt refaddr(undefer_sub($deferred_str)), $undeferred_addr,
'undefer_sub on expired deferred named
efer_info($deferred_str), undef,
'defer_info on expired deferred unnamed sub gives undef';
isnt refaddr(undefer_sub($deferred_str)), $undeferred_addr,
'undefer_sub on expired deferred unnam
er_info($undeferred_str), undef,
'defer_info on expired undeferred named sub gives undef';
isnt refaddr(undefer_sub($undeferred_str)), $undeferred_addr,
'undefer_sub on expired undeferred n