AI::ExpertSystem::Advanced::KnowledgeDB::Factory - Knowledge DB driver factory

AI-ExpertSystem-Advanced documentation Contained in the AI-ExpertSystem-Advanced distribution.

Index

Code Index:

NAME

Top

AI::ExpertSystem::Advanced::KnowledgeDB::Factory - Knowledge DB driver factory

DESCRIPTION

Top

Uses the factory pattern to create instances of knowledge database drivers.

SYNOPSIS

Top

    use AI::ExpertSystem::Advanced::KnowledgeDB::Factory;

    my $yaml_kdb = AI::ExpertSystem::Advanced::KnowledgeDB::Factory->new('yaml',
        {
            filename => 'examples/knowledge_db_one.yaml'
        });

AUTHOR

Top

Pablo Fischer (pablo@pablo.com.mx).

COPYRIGHT

Top

Copyright (C) 2010 by Pablo Fischer.

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

AI-ExpertSystem-Advanced documentation Contained in the AI-ExpertSystem-Advanced distribution. 
#
# AI::ExpertSystem::KnowledgeDB::Factory
#
# Author(s): Pablo Fischer (pfischer@cpan.org)
# Created: 11/29/2009 19:12:25 PST 19:12:25
package AI::ExpertSystem::Advanced::KnowledgeDB::Factory;


use strict;
use warnings;
use Class::Factory;
use base qw(Class::Factory);

our $VERSION = '0.02';

sub new {
    my ($pkg, $type, @params) = @_;
    my $class = $pkg->get_factory_class($type);
    return undef unless ($class);
    my $self = "$class"->new(@params);
    return $self;
}

__PACKAGE__->register_factory_type(yaml =>
        'AI::ExpertSystem::Advanced::KnowledgeDB::YAML');


1;