This more closely matches IO::Handle's behaviour.
defined $self->write($,) or return;
defined $self->write($_) or return;
}
+ defined $self->write($\) or return;
return 1;
}
my $expected = {
one => "foo",
two => "foobar",
- three => "foo,bar,baz",
+ three => "foo,bar,baz:",
};
for my $action ( sort keys %{$expected} ) {
my ( $self, $c ) = @_;
local $, = ',';
+ local $\ = ':';
$c->res->print(qw/foo bar baz/);
}
+
1;