develooper Front page | perl.perl6.users | Postings from October 2018

Re: Appropriate last words

Thread Previous | Thread Next
From:
Brandon Allbery
Date:
October 26, 2018 01:40
Subject:
Re: Appropriate last words
Message ID:
CAKFCL4Vs=RY2uuOV4bac6LZ-K6RyFZoQZPdXOqnucV=W6waR=g@mail.gmail.com
I didn't phrase that quite right.

pyanfar Z$ 6 'my @lines; $*OUT.^find_method("print").wrap: -> $self, $str {
@lines.push($str) }; use Test; note "hello"; is @lines[0], "hello\n",
"wrapped err too"'
ok 1 - wrapped err too

This wraps it for every IO::Handle, not just for the IO::Handle in $*OUT.
You may need "but" for that?

On Thu, Oct 25, 2018 at 9:34 PM Brian Duggan <bduggan2@gmail.com> wrote:

> On Thursday, October 25, Brandon Allbery wrote:
> > You can't actually wrap print that way, can you? Or rather, if that works
> > it wouldn't be specific to $*ERR.
>
> Um, you definitely can, and yes it's not specific to $*ERR, e.g.
>
>     my @lines;
>     $*OUT.^find_method('print').wrap: -> $self, $str { @lines.push($str) }
>
>     use Test;
>     say "hello";
>     is @lines[0], "hello\n", 'said hello';
>
> produces
>
>     ok 1 - said hello
>
> Brian
>


-- 
brandon s allbery kf8nh
allbery.b@gmail.com

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About