package WebCoso::Collection;
use strict;
use warnings;
use Class::Std;
use Scalar::Util 'weaken';
use List::MoreUtils 'any';
use WebCoso::Config;

{
my %names_of :ATTR( :get<names> );
my %parents_of :ATTR( :get<parents_ref> );
my %children_of :ATTR( :get<children_ref> );
my %resources_of :ATTR( :init_arg<resources> :get<resources_ref> );

sub BUILD {
    my ($self,$ident,$args_ref)=@_;

    my $names=$args_ref->{name};
    # trasformo un nome semplice in un nome "per qualsiasi lingua"
    $names={''=>$names} unless ref($names) eq 'HASH';
    $names_of{$ident}=$names;

    my $parents=$args_ref->{parents} || [];
    $parents_of{$ident}=$parents;
    $_->add_child($self) for @$parents;

    my $children=$args_ref->{children} || [];
    $children_of{$ident}=$children;
    $_->add_parent($self) for @$children;

    $resources_of{$ident}=[];

    WebCoso::Config->add_collection($self);

    return;
}

sub get_axes {
    return 'language';
}

sub get_axis_values {
    my ($self,$axis_name)=@_;
    if ($axis_name eq 'language') {
        return grep { $_ } keys %{ $self->get_names() }
    }
    else {
        return;
    }
}

sub get_properties {
    my ($self,$axis_name,$axis_value,@rest)=@_;

    if (@rest==0 and $axis_name eq 'language') {
        if ( any { $_ eq $axis_value }
                 keys %{ $self->get_names() }
             ) {
            return {
                name => $self->get_names()->{$axis_value}
            };
        }
        elsif (exists ${$self->get_names()}{''}) {
            return {
                name => $self->get_names()->{''}
            };
        }
        else {
            return;
        }
    }
}

sub add_child {
    my ($self,$child)=@_;

    return if any { $_ eq $child } @{ $self->get_children_ref() };

    push @{ $self->get_children_ref() },$child;
    $child->add_parent($self);

    return;
}
sub add_parent {
    my ($self,$parent)=@_;

    return if any { $_ eq $parent } @{ $self->get_parents_ref() };

    my $weak_parent=$parent;
    weaken $weak_parent;

    push @{ $self->get_parents_ref() },$weak_parent;
    $parent->add_child($self);

    return;
}
sub add_res {
    my ($self, @resources)=@_;

    # creo una tabellina di look-up per evitare i duplicati
    # NOTA: le chiavi sono stringhe, non ref, non si può usare per
    # pescare gli oggetti
    my %res_key;
    @res_key{ @{ $self->get_resources_ref() } } = ();

  RESOURCES:
    for my $res (@resources) {
        next RESOURCES if exists $res_key{$res};

        push @{ $self->get_resources_ref() }, $res;
        $res_key{$res}=undef;
        $res->add_coll($self);
    }

    return;
}

sub get_parents {
    my ($self)=@_;
    return @{ $self->get_parents_ref() };
}
sub get_children {
    my ($self)=@_;
    return @{ $self->get_children_ref() };
}
sub get_resources {
    my ($self)=@_;
    return @{ $self->get_resources_ref() };
}

}

1;