package MyApp::Introspect;

use Validation::Class;

sub per_class {

    my ($self, $code) = @_;

    $self->proto->relatives->each(
        sub {

            my ($alias, $namespace) = @_;

            # do something with each class
            $code->($namespace);

        }
    );

}

sub per_field_per_class {

    my ($self, $code) = @_;

    $self->per_class(
        sub {

            my $namespace = shift;

            my $class = $namespace->new;

            foreach my $field (sort $class->fields->keys) {

                # do something with each field
                $code->($class, $class->fields->{$field});

            }

        }
    );

}

1;