7 use lib "$FindBin::Bin/../lib";
9 use Clearquest::Client;
18 my $cq = Clearquest::Client->new;
20 my $dbname = $cq->username () . '@' . $cq->database () . '/' . $cq->dbset ();
22 display_nolf "Connecting to Clearquest database $dbname";
24 unless ($cq->connect) {
27 error "Unable to connect to database $dbname", 1;
30 display_duration $startTime;
32 my ($result, $nbrRecs) = $cq->find ('defect', 'assert == 0', ('id', 'title'));
34 while (my %record = $cq->getNext ($result)) {
35 display "$_: $record{$_}" foreach (sort keys %record);