JSORB::Namespace - A JSORB namespace

package JSORB::Namespace;
use Moose;
use MooseX::AttributeHelpers;

use Set::Object 'set';

our $VERSION   = '0.04';
our $AUTHORITY = 'cpan:STEVAN';

extends 'JSORB::Core::Element';

has 'elements' => (
    is      => 'ro',
    isa     => 'ArrayRef[JSORB::Namespace]',
    default => sub { [] },
    trigger => sub {
        my $self = shift;
        $_->_set_parent($self)
            foreach @{ $self->elements };
        $self->_clear_element_map
            if $self->_element_map_is_initialized;
    }
);

has '_element_map' => (
    metaclass => 'Collection::Hash',
    init_arg  => undef,
    is        => 'ro',
    isa       => 'HashRef[JSORB::Namespace]',
    lazy      => 1,
    predicate => '_element_map_is_initialized',
    clearer   => '_clear_element_map',
    default   => sub {
        my $self = shift;
        return +{
            map { $_->name => $_ } @{ $self->elements }
        }
    },
    provides  => {
        'get' => 'get_element_by_name',
    }
);

sub add_element {
    my ($self, $element) = @_;
    (blessed $element && $element->isa('JSORB::Namespace'))
        || confess "Bad element -> $element";
    push @{ $self->elements } => $element;
    $element->_set_parent($self);
    $self->_element_map->{ $element->name } = $element;
}

sub merge_with {
    my ($self, $other) = @_;
    ($self->name eq $other->name)
        || confess "You can only merge items with the same name";

    my %other    = %{ $other->_element_map };
    my @elements = do {
        map {
            $_->merge_with( delete $other{ $_->name } || return $_ )
        } @{ $self->elements }
    }, values %other;

    $self->meta->name->new(
        name     => $self->name,
        elements => \@elements,
        (inner())
    );
}

__PACKAGE__->meta->make_immutable;

no Moose; 1;

__END__