package ValAtom;

use strict;
use warnings;
use 5.10.1;

use Moose;
use MooseX::Types::Moose -all;

extends 'KeyAtom', 'JustTesting';

has '+data' => (
    isa     => __PACKAGE__->_existing_constraint('data') . ' | ArrayRef | HashRef',
);

sub _existing_constraint {
        my ($class, $attr) = @_;
        return join ' | ', map {
            $_->meta->find_attribute_by_name($attr)->type_constraint
        } $class->meta->superclasses;
    }

1;