Help for this page

Select Code to Download


  1. or download this
    package DBManager;

...
    
    $self->{db} = undef;
}
  2. or download this
    sub setDbh {
    my ($self) = @_;
...
    
    return $colMatch;
}
  3. or download this
    1;

...
}

1;
  4. or download this
        my $task = Task->new;
    my $now = Date::Manip::ParseDate ('today');
    my $tasks = $task->fetch_all (starts => ["<= '$now'"]);
    my @readyTasks =
        sort {$a->{starts} cmp $b->{starts}} values %$tasks;