Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Writing Solid CPAN Modules

by eyepopslikeamosquito (Canon)
on Jan 03, 2005 at 08:28 UTC ( #418891=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    Abstract_noun
    Abstract_noun::Adjective
    Abstract_noun::Adjective1::Adjective2
    
  2. or download this
    package Disk;
    package Disk::Audio;
    package Disk::DVD;
    package Disk::DVD::Rewritable
    
  3. or download this
    use Test::More;
    eval "use Test::Pod::Coverage 0.08";
    plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD co
    +verage" if $@;
    all_pod_coverage_ok();
    
  4. or download this
    sub fred {
        open(FH, "< f.tmp") or die "open error f.tmp";
    ...
    eval { fred() };
    if ($@) { print "died: $@\n" }
    # oops, handle FH is still open if exception was thrown.
    
  5. or download this
    sub fred {
        open(my $fh, "< f.tmp") or die "open error f.tmp";
    ...
    eval { fred() };
    if ($@) { print "died: $@\n" }
    # ok, $fh is auto-closed when its ref count goes to zero
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://418891]
Approved by pelagic
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (13)
As of 2014-07-23 16:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (147 votes), past polls