The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
AI-CBR-0.02
River stage zero No dependents
1 ++
/ AI::CBR::Case::Compound

NAME

AI::CBR::Case::Compound - compound case definition and representation

SYNOPSIS

Define and initialise a compound (or object-oriented) case. This is a case consisting of multiple object definitions related in some way. In a productive system, you will want to encapsulate this.

    use AI::CBR::Case::Compound;
    use AI::CBR::Sim qw(sim_eq sim_dist);

    # assume we sell travels with flight and hotel
    # shortcut one-time generated case
    my $case = AI::CBR::Case::Compound->new(
        # flight object
        {
                        flight_start  => { value => 'FRA', sim => \&sim_eq },
                        flight_target => { value => 'LIS', sim => \&sim_eq },
                        price         => { value => 300,   sim => \&sim_dist, param => 200 },
                },
                # hotel object
                {
                        stars => { value => 3,  sim => \&sim_dist, param => 2 },
                        rate  => { value => 60, sim => \&sim_dist, param => 200 },              
                },
    );

    ...

METHODS

new

Creates a new compound case specification. Pass a list of hash references as argument. Each hash reference is the same specification as passed to AI::CBR::Case.

set_values

Pass a flat hash of attribute keys and values. This will overwrite existing values, and can thus be used as a faster method for generating new cases with the same specification. Notice that keys in the different specifications of the compound object may not have the same name!

SEE ALSO

See AI::CBR for an overview of the framework.

AUTHOR

Darko Obradovic, <dobradovic at gmx.de>

BUGS

Please report any bugs or feature requests to bug-ai-cbr at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=AI-CBR. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc AI::CBR::Case::Compound

You can also look for information at:

COPYRIGHT & LICENSE

Copyright 2009 Darko Obradovic, all rights reserved.

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