CPAN::YACSmoke::Plugin::SmokeDB - SmokeDB list for Yet Another CPAN Smoke Tester


CPAN-YACSmoke documentation Contained in the CPAN-YACSmoke distribution.

Index


Code Index:

NAME

Top

CPAN::YACSmoke::Plugin::SmokeDB - SmokeDB list for Yet Another CPAN Smoke Tester

SYNOPSIS

Top

  use CPAN::YACSmoke;
  my $config = {
	  list_from => 'SmokeDB', 
  };
  my $foo = CPAN::YACSmoke->new(config => $config);
  my @list = $foo->download_list();

DESCRIPTION

Top

This module provides the backend ability to access the list of current modules recorded in the local cpansmoke database.

This module should be use together with CPAN::YACSmoke.

CONSTRUCTOR

Top

new()

Creates the plugin object.

METHODS

Top

download_list()

Returns the current distributions stored in the local cpansmoke database.

CAVEATS

Top

This is a proto-type release. Use with caution and supervision.

The current version has a very primitive interface and limited functionality. Future versions may have a lot of options.

There is always a risk associated with automatically downloading and testing code from CPAN, which could turn out to be malicious or severely buggy. Do not run this on a critical machine.

This module uses the backend of CPANPLUS to do most of the work, so is subject to any bugs of CPANPLUS.

Suggestions and Bug Reporting

Please submit suggestions and report bugs to the CPAN Bug Tracker at http://rt.cpan.org.

SEE ALSO

Top

The CPAN Testers Website at http://testers.cpan.org has information about the CPAN Testing Service.

For additional information, see the documentation for these modules:

  CPANPLUS
  Test::Reporter
  CPAN::YACSmoke

AUTHOR

Top

Barbie, <<barbie@cpan.org> > for Miss Barbell Productions, http://www.missbarbell.co.uk

Birmingham Perl Mongers, http://birmingham.pm.org/

COPYRIGHT AND LICENSE

Top


CPAN-YACSmoke documentation Contained in the CPAN-YACSmoke distribution.
package CPAN::YACSmoke::Plugin::SmokeDB;

use 5.006001;
use strict;
use warnings;

our $VERSION = '0.01';

# -------------------------------------
# Library Modules

use CPAN::YACSmoke;

# -------------------------------------
# The Subs

    
sub new {
    my $class = shift || __PACKAGE__;
    my $hash  = shift;

    my $self = {
    };
    foreach my $field (qw( smoke )) {
        $self->{$field} = $hash->{$field}   if(exists $hash->{$field});
    }

    bless $self, $class;
}

    
sub download_list {
    my $self  = shift;
    return keys %{ $self->{smoke}->{checked} };
}

1;
__END__