Select Code to Download

create table test (
  id integer not null,
...
  ) test2
where pos > 1

alter table add column foo;
create table foo (
...
    end as bar
from foo
left join foo_eav foo_bar on foo.id = foo_eav.recno and foo_eav.name =
+ 'bar'

package App::RemoteDownload::Queue;
use strict;
...
};

1;

#! perl -slw
use strict;
...
sleep 1;
take();
sleep 12;

package DateTime::Range;
use strict;
...
};

1;

package Interfaces::ExcelBinary;
use strict;
...
    mem_usage();
    ReadXLS(Interfaces::ExcelBinary::, $file);
};

Spreadsheet::ParseExcel 0.58 at q:\tmp.pl line 5.
medium.xls 47344673 bytes
...
Done parsing
perl.exe                    2940 Console                 0    331.140 
+K
54175 records in [34 seconds], [0 records/s]

my @data = $cv->recv()

my @result = $plugin->execute('1+1'); # sends data over to Firefox, an
+d returns the response

package My::Plugin::AnyEvent;

...
    # synchronously execute the command
    $self->execute_async($command)->recv
};

package Archive::Zip::MemberRead::FH;
use strict;
...

=cut

#!perl -w
use strict;
...
    -X        include "XSUB.h" (and undefine PERL_CORE)

=cut

#!perl -w

...
while (<>) {
    print "$_\n"
};

    for each module that fails its regression tests on $current
      did it fail identically on $previous?
...
          yes - goto "regression"
          no - note it in perldelta as a significant bugfix
          (also, try to inform the module's author)

#!/usr/bin/perl -w
use strict;
...
        $last_update = $now;
    };
};

use strict;
use threads;
...
    printf "%d %d\n", threads->tid, $_;
    $_
} (1..10);

@echo off
set base=%~dp0
path %BASE%\perl\bin;%BASE%\c\bin;%PATH%
set CCACHE_DIR=C:\temp\ccache
set CCACHE_LOGFILE=%CCACHE_DIR%\ccache.log

#!perl -w
use strict;
...
    select RemotePath,ConnectionState
    from Win32_NetworkConnection

   sub GimmeStdErr(@){  # ... bangles, tangles and spaghetti!
         local *R, *W;
...
             exec @_
         }
   };

=head2 C<< flatten LISTNAME CHILDLIST $var >>

...
    $items
};

Q:\>perl -e "my%l;BEGIN{unshift@INC,sub{my($s,$m)=@_;return if $l{$m};
+local $l{$
m}=$m;warn localtime().qq[ $m loading\n];require $m;warn localtime().q
+q[ $m done
.\n];}}" -e "use strict; use warnings;use LWP::UserAgent;"

package Devel::Timings;
# or maybe B::Timings, so you can load it with -MO=Timings...
...
        warn localtime().qq[ $module done.\n];
    }
}

use Test::More tests => 4;
use Data::Dumper;
...
fallback
#!/bin/sh

#!/usr/bin/perl -w
package main;
...
    print "\n";
    $conf->SetDNSServerSearchOrder(['192.168.1.102', '127.0.0.1']);
}

    SELECT COUNT(*) 
    FROM mx_forums
    WHERE id=? OR category = ? 
    -- $q->param('forum'), $q->param('category')

    SELECT COUNT(*) 
    FROM mx_forums
...
      OR ((1 = ?) AND (category = ?))
    -- defined $q->param('forum'), $q->param('forum')
    -- defined $q->param('category'), $q->param('category')

my $sql = q{ ... };
if ( $dbh->selectrow_array(
...
       $q->param('category')
    ) >= 1 
     ) { ... }

use strict;
use lib '.';
...
                          having  => { col_count => [ -and => { '>' =>
+ 0 }, { '<' => $total_count }]},);
  print $sql,"\n";
}

#!/usr/bin/perl
use warnings;
...
}

print "Done.";