Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

nothingmuch's scratchpad

by nothingmuch (Priest)
on Jun 01, 2004 at 22:53 UTC ( #358754=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        sub guess_perl_type {
            my $self = shift;
    ...
    
            die "what type is $flags?";
        }
    
  2. or download this
    #!/usr/bin/perl
    
    ...
    L<XML::Parser::ExpatXS> as L<XML::SAX::Expat> is to L<XML::Parser> its
    +elf.
    
    =cut
    
  3. or download this
    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
                                                    ^
    
  4. or download this
    map <F5> :call Log2Left()<CR>
    map <F6> :call Log2Backtrack()<CR>
    map <F7> :call Log2Right()<CR>
    
  5. or download this
    function Log2InitState()
        if !exists("b:log_2_cursor") || b:log_2_cursor != col(".") || b:lo
    +g_2_line != line(".")
    ...
    
        call Log2MoveIt(0)
    endfunction
    
  6. or download this
    #!/usr/bin/perl
    
    ...
    
    # but i have to do this for relationships too.
    
  7. or download this
    #!/usr/bin/perl
    package MyClass::Exception;
    use base qw/Error/;
    use base qw/MyClass::Message/; # FIXME use interface;
    ...
    
  8. or download this
     [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)
    
  9. or download this
     [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)
    
  10. or download this
    #!/usr/bin/perl
    
    ...
            in( $self->{file} );
        },
    );
    
  11. or download this
    PERL5OPT=-MDevel::FIXME::Rules::PerlFile
    
  12. or download this
    #!/usr/bin/perl
    
    ...
    
    Yuval Kogman <nothingmuch@woobling.org>
    
  13. or download this
    =head1 GETTING A HANDLE ON IO
    
    ...
    discuss accept() on shared sockets in a preforked env
    
    appendix: faux IO: open ref, perlio layerrs and ties
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2021-12-03 17:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (29 votes). Check out past polls.

    Notices?