wchristian

        my $sql = "SELECT count(s.seq_id) AS nb, isha.motifs
                FROM sequences s
                JOIN (
                        SELECT sha.seq_id AS shaseq_id,GROUP_CONCAT(i.ipr_code ORDER BY i.ipr_code) AS motifs
                        FROM seq_has_an sha, ipr i
                        WHERE i.ipr_id = sha.ipr_id AND i.ipr_code IN ($IPR_list)
                        GROUP BY shaseq_id
                     ) isha ON s.seq_id = isha.shaseq_id
                WHERE s.species_id = $_{species_id}

wchristian

my (
    $desc,          $fl_nummer, $desc1,       $fl_klasse, $desc13,      $fl_zhc, $desc2,  $fl_carrier, $desc3,
    $fl_abflugzeit, $desc4,     $fl_preis_vz, $desc5,     $fl_abschlag, $desc0,  $fl_ahc, $desc6,      $fl_flugschluessel
) = %{$_};

wchristian

D:\Ubic>prove -v
t\00_compile.t ...........
1..35
ok 1 - use Ubic;
ok 2 - use Ubic::AccessGuard;
ok 3 - use Ubic::Cmd;
ok 4 - use Ubic::Credentials;
ok 5 - use Ubic::Daemon;
ok 6 - use Ubic::Lockf;

wchristian

    $HTTP["referer"] =~ "^$"                                      {
      $HTTP["cookie"] !~ ".*disclaimer=seen.*"                    {
        $HTTP["useragent"] =~ "(.*Mozilla.*|.*Opera.*)"           {
          $HTTP["useragent"] !~ "(^.*Google.*|.*PlayStation.*)"   {
            url.rewrite-once = (
              "^.*disclaimer.*$" => "$0",
              "^.*favicon.*$" => "$0",
              "^.*css.*$" => "$0",
              "^(.*)$" => "/disclaimer.php?url=$1"
            )

wchristian

package utils::rewekati::DateHelpers;

use base 'Exporter';
our @EXPORT_OK = qw( eu_date_to_int duration_between getDatumOut dateIsBetween );

use utils::Date::Calc::Cached qw( Delta_Days );

{
    my %int_date_cache;
    sub eu_date_to_int {

wchristian

sub run
{
    my ($self) = @_;
    $self = $self->new if !ref $self;

    my $sub    = $self->get_sub;
    my $result = $self->$sub();

    $gp->print_page($result);

wchristian

[...]

Smoker: getting modules/02packages.details.txt.gz from CPAN
Fetching with LWP:
  http://cpan.perl.org/modules/02packages.details.txt.gz
Smoker: getting indices/find-ls.gz from CPAN
Fetching with LWP:
  http://cpan.perl.org/indices/find-ls.gz
Smoker: scanning and sorting index
Smoker: found 21792 distributions on CPAN

wchristian

sub makeData {
    print "makeData\n";

    for my $hotel ( values %{$gl_hotel} ) {

        for my $destination ( @{ $hotel->{airports} } ) {

            for my $dest_flights_on_date ( values %{$gl_flug->{ $destination }} ) {

wchristian

use strict;
use warnings;

package Template::AutoFilter;

use base 'Template';

use lib '..';
use Template::AutoFilter::Parser;

wchristian

D:\traffics\Template-AutoFilter>dzil release
[DZ] beginning to build Template-AutoFilter
[DZ] guessing dist's main_module is lib/Template/AutoFilter.pm
[DZ] extracting distribution abstract from lib/Template/AutoFilter.pm
[ExtraTests] rewriting release test xt/release/pod-coverage.t
[ExtraTests] rewriting release test xt/release/pod-syntax.t
[ExtraTests] rewriting release test xt/release/kwalitee.t
[CheckChangeLog] [CheckChangeLog] OK with Changes
[DZ] writing Template-AutoFilter in Template-AutoFilter-0.110030
[DZ] writing archive to Template-AutoFilter-0.110030.tar.gz