DBomb::Meta::HasMany - One side of a one-to-many relationship.

package DBomb::Meta::HasMany;

use strict;
use warnings;
our $VERSION = '$Revision: 1.5 $';

use Carp::Assert;
use Class::MethodMaker
    'new_with_init' => 'new',
    'get_set' => [qw(one_to_many), ## The relationship object
                  qw(attr),     ## The accessor
                ];

## new HasMany($one_to_many, $opts)
sub init
{
    my ($self, $one_to_many, $opts) = @_;
    $opts ||= {};

        assert(2 <= @_ && @_ <= 3, 'parameter count');
        assert(UNIVERSAL::isa($one_to_many,'DBomb::Meta::OneToMany'), 'HasMany->new requires OneToMany');

    $self->one_to_many($one_to_many);
    $self->attr($opts->{'attr'} || join(q//, "_dbo_has_many_attr: ",
                $one_to_many->many_key->table_info->name, "(", 
                join(', ', @{$one_to_many->many_key->column_names}), ") =>",
                $one_to_many->one_key->table_info->name, "(", 
                join(', ', @{$one_to_many->one_key->column_names}), ") =>",
                ));

    ## Register with table_info
    push @{$one_to_many->one_table_info->has_manys}, $self;
}

sub resolve
{
    my $self = shift;
    return 1;
}

1;
__END__