Select Code to Download

    sub guess_perl_type {
        my $self = shift;
...

        die "what type is $flags?";
    }

#!/usr/bin/perl

...
L<XML::Parser::ExpatXS> as L<XML::SAX::Expat> is to L<XML::Parser> its
+elf.

=cut

Initially, Log2Backtrack() will put the cursor here:
This is a sample line of text which we will move around
...
And now, Log2Right() will move the cursor to
This is a sample line of text which we will move around
                                                ^

map <F5> :call Log2Left()<CR>
map <F6> :call Log2Backtrack()<CR>
map <F7> :call Log2Right()<CR>

function Log2InitState()
    if !exists("b:log_2_cursor") || b:log_2_cursor != col(".") || b:lo
+g_2_line != line(".")
...

    call Log2MoveIt(0)
endfunction

#!/usr/bin/perl

...

# but i have to do this for relationships too.

#!/usr/bin/perl
package MyClass::Exception;
use base qw/Error/;
use base qw/MyClass::Message/; # FIXME use interface;
...

• [syeeda:~/src] nothingmuch % prove t
t/exception-api....# FIXME: use interface; at /Users/nothingmuch/src/l
+ib/MyClass/Exception.pm line 4
t/exception-api....ok
All tests successful.
Files=1, Tests=10,  5 wallclock secs ( 1.71 cusr +  0.24 csys =  1.95 
+CPU)

• [syeeda:~/src] nothingmuch % touch /Users/nothingmuch/src/lib/MyClas
+s/Exception.pm
• [syeeda:~/src] nothingmuch % prove t
t/exception-api....ok                                                 
+       
All tests successful.
Files=1, Tests=10,  5 wallclock secs ( 1.71 cusr +  0.24 csys =  1.95 
+CPU)

#!/usr/bin/perl

...
        in( $self->{file} );
    },
);

PERL5OPT=-MDevel::FIXME::Rules::PerlFile

#!/usr/bin/perl

...

Yuval Kogman <nothingmuch@woobling.org>

=head1 GETTING A HANDLE ON IO

...
discuss accept() on shared sockets in a preforked env

appendix: faux IO: open ref, perlio layerrs and ties