File Coverage

blib/lib/MyCPAN/Indexer/Collator/Null.pm

Criterion	Covered	Total	%
statement	28	34	82.3
branch			n/a
condition			n/a
subroutine	10	13	76.9
pod	2	2	100.0
total	40	49	81.6

package MyCPAN::Indexer::Collator::Null;
use strict;
use warnings;

use parent qw(MyCPAN::Indexer::Component);
use vars qw($VERSION $logger);
$VERSION = '1.28_12';

use Carp;
use File::Basename;
use File::Spec::Functions qw(catfile);
use Log::Log4perl;
use YAML;

BEGIN {
	$logger = Log::Log4perl->get_logger( 'Collator' );
	}

=head1 NAME

MyCPAN::Indexer::Collator::Null - A No-op reports processor

=head1 SYNOPSIS

Use this in backpan_indexer.pl by specifying it as the reporter class:

	# in backpan_indexer.config
	collator_class  MyCPAN::Indexer::Collator::Null

=head1 DESCRIPTION

This class is a stand in for a Collator that does something real. In the
normal run of a backpan index, there's nothing to create out of the set of
reports, so this example does nothing.

=head2 Methods

=over 4

=item component_type

This is a collator component.

=cut

sub component_type { $_[0]->collator_type }

=item get_collator( $Notes )

C sets the C key in the C<$Notes> hash reference. The
value is a code reference that takes the information collected about a distribution
and dumps it as a YAML file.

See L for details about what C expects
and should do.

=cut

sub get_collator
	{
	#TRACE( sub { get_caller_info } );

	my( $self ) = @_;

	my $collator = sub { 1 };

	$self->set_note( 'collator', $collator );

	1;
	}

=back

=head1 TO DO

=head1 SOURCE AVAILABILITY

This code is in Github:

	git://github.com/briandfoy/mycpan-indexer.git

=head1 AUTHOR

brian d foy, C<<  >>

=head1 COPYRIGHT AND LICENSE

Copyright (c) 2008-2013, brian d foy, All Rights Reserved.

You may redistribute this under the same terms as Perl itself.

=cut

1;