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;
}
##</code><code>##

$ ./script/clio_test.pl 
Clio::Model::YAML uses NEXT, which is deprecated. Please see the Class::C3::Adopt::NEXT documentation for details. NEXT used  at /home/miller/actions/note_taker/Clio/script/../lib/Clio/Model/YAML.pm line 16
##</code><code>##

print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);