package Clio::Model::YAML; use namespace::autoclean; use base 'Catalyst::Model'; use MRO::Compat; use Data::Dumper; use YAML::Any qw(LoadFile); use warnings; use strict; __PACKAGE__->mk_accessors('defs'); sub new { my $class = shift; my $self = $class->NEXT::new(@_); $self->{defs} = mergekeys( LoadFile "db/clio.yml" ); return $self; }