package Morsulus::Catalog::SetOf;

use strict;
use warnings;

use Object::InsideOut qw/ Set::Scalar::Valued /;

{
    my @the_sets :Field :Get('_get_the_set');
    
    sub _init :Init
    {
        my $self = shift;
        my $args = shift;
        my $the_set = Set::Scalar::Valued->new();
        $self->set(\@the_sets, $the_set);
        $self->inherit($the_set, $args);
    }
}

1;

##</code><code>##

use Test::More tests => 4;
use Test::Exception;

BEGIN {
use_ok( 'Morsulus::Catalog::SetOf' );
}

diag( "Testing Morsulus::Catalog::SetOf");

my $thingy;

lives_ok { $thingy = Morsulus::Catalog::SetOf->new(); } 'created SetOf';

ok $thingy->can('values'), '$thingy->can("values")';
ok $thingy->isa('Set::Scalar::Valued'), '$thingy is a Set::Scalar::Valued';

##</code><code>##

t/00.setof....NOK 2/4                                                        
#   Failed test 'created SetOf'
#   at t/00.setof.t line 12.
# died: OIO::Args error: Missing arg(s) to '->inherit()'
# Package: Morsulus::Catalog::SetOf
# File: blib/lib/Morsulus/Catalog/SetOf.pm
# Line: 17
# 
# 
# Trace begun at blib/lib/Morsulus/Catalog/SetOf.pm line 17
# Object::InsideOut::new at t/00.setof.t line 12
# Test::Exception::lives_ok at t/00.setof.t line 12