---
-
  - 1
  - !!perl/code |
    {
        print "one";
    }


##</code><code>##

use Modern::Perl;

use YAML qw/LoadFile/;
local $YAML::UseCode = 1;

my $s = YAML::LoadFile( "code.yml" );
my $f = $s->[ 0 ]->[ 1 ];
$f->();