Help for this page

Select Code to Download


  1. or download this
    $ cat foo.pl 
    #!/usr/bin/env perl
    ...
            carp
    # use Carp                qw< carp >;
    $
    
  2. or download this
    sub ReportExportUse {
        my( $fh, @mods ) = @_;
    ...
            local $_;
            local $. = 0;      # <------------- HACK
            while( <$fh> ) {
    
  3. or download this
    foo.pl:
         3: carp('boo');    # This is line 3
            carp
    # use Carp                qw< carp >;