The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WebService::ClinicalTrialsdotGov - Wrapper around the clinicaltrials.gov API

SYNOPSIS

For a generic search:

   use WebService::ClinicalTrialsdotGov;

   my $rh_params = {
      'term'  => 'cancer',
      'start' => 0,
      'count' => 10,
      'mode'  => 'search',   
   };

   my $CT = 
      WebService::ClinicalTrialsdotGov->new( $rh_params );

   my $Results = $CT->results;

   my $ra_all = 
      $Results->get_search_results;

   foreach my $Study ( @$ra_all ) {
      print $Study->title;
   }
   

For obtaining the details of a specific study:

   use WebService::ClinicalTrialsdotGov;

  my $rh_params = {
     'id'    => 'NCT00622401',
     'mode'  => 'show',   
  };

  my $CT = 
     WebService::ClinicalTrialsdotGov->new( $rh_params );

  my $Results = $CT->results;

  my $Study = 
     $Results->get_study;

FUNCTIONS

new

Creates a new instance of the module.

   my $rh_params = {
        'term'  => 'cancer',
        'start' => 0,
        'count' => 10,
        'mode'  => 'search',   
     };

  my $CT = 
     WebService::ClinicalTrialsdotGov->new( $rh_params );

The mode parameter can either be search for a generic search using the contents of the term parameter as the query or be study using the contents of the id paramter for identifying the study's ncd_id.

One can additionally specific a stating offset using start and a max results offset using count. By default, the API will return 20 results.

This function returns undef on error.

results

   my $ResultsObject = $CT->results;

This function returns a WebService::ClinicalTrialsdotGov::Reply object which can be interrogated to obtain the results in some form or shape.

This function returns undef on error.

AUTHOR

Spiros Denaxas, <s.denaxas at gmail.com>

BUGS

Please report any bugs or feature requests to bug-webservice-clinicaltrialsdotgov at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WebService-ClinicalTrialsdotGov. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc WebService::ClinicalTrialsdotGov

You can also look for information at:

COPYRIGHT & LICENSE

Copyright 2010 Spiros Denaxas, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.