brian d foy > MyCPAN-Indexer-1.28 > MyCPAN::Indexer::Coordinator

Download:
MyCPAN-Indexer-1.28.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

New  1
Open  1
View/Report Bugs
Module Version: 1.28   Source   Latest Release: MyCPAN-Indexer-1.28_10

NAME ^

MyCPAN::Indexer::Coordinator - Provide a way for the various components to communicate

SYNOPSIS ^

        my $componentA   = MyCPAN::Indexer::ComponentA->new;
        my $componentB   = MyCPAN::Indexer::ComponentB->new;
        
        my $coordinator = MyCPAN::Indexer::Coordinator->new;
        
        # each component gets a reference
        $componentA->set_coordinator( $coordinator );
        $componentB->set_coordinator( $coordinator );
        
        # the coordinator knows about all of the components
        $coordinator->set_component( 'A', $componentA );
        $coordinator->set_component( 'B', $componentB );
        
        $componentA->set_note( 'cat', 'Buster' );
        
        my $cat = $componentB->get_note( 'cat' );
        
        # Any component can find any other component
        $componentB->get_coordinator->get_component( 'A' )->method_in_A;

DESCRIPTION ^

The coordinator keeps track of the components in MyCPAN::Indexer. It acts as a central point where all comunication can flow so everything can talk to everything with only 2N connections.

It automatically sets up a notes object to act as a scratchpad. Every component can read from and write to the notes object.

Methods

new

Create a new Coordinator object.

get_component( NAME )

Retrieve the component named NAME.

set_component( NAME, REFERENCE )

Set the component with name NAME to REFERENCE. So far there are no restrictions on reference, but it should be a subclass of MyCPAN::Indexer::Component or at least something that acts like that class.

Dispatch to notes

As a convenience, these methods dispatch to the notes object:

        get_note
        set_note
        get_config
        set_config
        increment_note
        decrement_note
        push_onto_note
        unshift_onto_note
        get_note_list_element
        set_note_unless_defined

TO DO ^

SOURCE AVAILABILITY ^

This code is in Github:

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

AUTHOR ^

brian d foy, <bdfoy@cpan.org>

COPYRIGHT AND LICENSE ^

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

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

syntax highlighting: