Be explicit that we're making a code reference, and not
a reference to a scalar, array, hash, or IO...
my ($class, $ctx, $cb) = @_;
$ctx->{emit_header} = 1;
$ctx->{feed_base_url} = $ctx->{-inbox}->base_url($ctx->{env});
- bless { cb => $cb || *close, ctx => $ctx }, $class;
+ bless { cb => $cb || \&close, ctx => $ctx }, $class;
}
sub response {
chop $base_url; # no trailing slash for clone
bless {
nr => 0,
- cb => $cb || *close,
+ cb => $cb || \&close,
ctx => $ctx,
base_url => $base_url,
}, $class;