NAME

CPAN::Testers::Common::Client::History - read/write CPAN Testers' history file

SYNOPSIS

You should not call this module directly. Instead, use the public interface available via CPAN::Testers::Common::Client:

use CPAN::Testers::Common::Client;

my $client = CPAN::Testers::Common::Client->new(
    distname => 'Class-Load-0.22',
    author   => 'Karen Etheridge',
    grade    => 'pass',
);

if (! $client->is_duplicate ) {
    $client->record_history;
}

DESCRIPTION

This modules provides a common interface for interacting with the CPAN Tester's history file used by compatible clients.

Most methods are private for use only within CPAN::Testers::Common::Client itself, through the API provided in the SYNOPSIS. However, if you really want/need to fiddle with the history file, we do provide a few helper functions. Just keep reading.

FUNCTIONS

This module provides the following interface. No functions are exported by default.

is_duplicate( \%data )

my $data = {
    dist_name => 'Class-Load-0.22',
    phase     => 'test',
    grade     => 'PASS'
};

if (CPAN::Testers::Common::Client::History::is_duplicate( $data )) {
    # don't send duplicate reports!
}

From a simple hash reference with some testing data, returns true if there is a record of this report on the history file, and false otherwise.

record_history( \%data )

CPAN::Testers::Common::Client::History::record_history({
    dist_name => 'Clone',
    phase     => 'test',
    grade     => 'NA'
});

Writes to the history file, adding the entry provided by the given hashref.

have_tested( $type => $value )

   # all reports for Foo-Bar-1.23
   @results = have_tested( dist => 'Foo-Bar-1.23' );

   # all NA reports
   @results = have_tested( grade => 'NA' );

   # all reports on the current Perl/platform
   @results = have_tested();

Searches the CPAN Testers' history file for records exactly matching the search criteria, given as pairs of field-names and desired values.

Ordinary search criteria include:

• dist -- the distribution tarball name without any filename suffix; from a CPAN::Distribution object, this is provided by the base_id method.

• phase -- phase the report was generated during: either 'PL', 'make' or 'test'.

• grade -- CPAN Testers grade: 'PASS', 'FAIL', 'NA' or 'UNKNOWN'; Also may be 'DISCARD' for any failing reports not sent due to missing prerequisites.

Without additional criteria, a search will be limited to the current version of Perl and the current architecture and OS version. Additional criteria may be specified explicitly or, by specifying the empty string, q{}, will match that field for any record.

# all reports for Foo-Bar-1.23 on any version of perl
# on the current architecture and OS version
@results = have_tested( dist => 'Foo-Bar-1.23', perl => q{} );

These additional criteria include:

• perl -- perl version and possible patchlevel; this will be dotted decimal (5.6.2) starting with version 5.6, or will be numeric style as given by $] for older versions; if a patchlevel exists, it must be specified similar to "5.11.0 patch 12345".

• archname -- platform architecture name as given by $Config{archname}.

• osvers -- operating system version as given by $Config{osvers}.

  The function returns an array of hashes representing each test result, with all of the fields listed above.

SEE ALSO

CPAN::Testers::Common::Client