view release on metacpan or  search on metacpan

lib/FormValidator/Nested/ProfileProvider/YAML.pm  view on Meta::CPAN

        }
    );
    return \@profile_keys;
}


sub get_profile_data {
    my $self = shift;
    my $key  = shift;

    my @path = split m{/}, $key;
    $path[-1] .= $EXT;

    my $file = Path::Class::File->new($self->dir, @path);
    if ( !-f $file ) {
        return 0;
    }

    my $profile = YAML::Syck::LoadFile(Path::Class::File->new($self->dir, @path));

    return $profile;