[Catalyst-dev] Re: A try to patch Catalyst::Engine.pm

[Aristotle Pagaltzis]

* Chae Lee <yuand2 at gmail.com> [2008-07-28 20:00]:
>   my ( $len, $wrote );
>   {
>       use bytes;
>       $len   = length($buffer);
>       $wrote = syswrite STDOUT, $buffer;
>   }

Maybe like so?

    my ( $len, $wrote ) = do {
        use bytes;
        length($buffer),
        syswrite(STDOUT, $buffer);
    };

Less repetition.

-- 
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle Pagaltzis // <http://plasmasturm.org/>