{ tie my $dst => 'Tie::YAML::More', 'scalar.yaml', 0666; $src = { scalar => $scalar, array => [@array], hash=>{%hash} }; $dst = $src; }{ tie my $dst => 'Tie::YAML::More', 'scalar.yaml', 0444; is_deeply($dst, $src, 'Tie::YAML::More'); eval{ $dst = '' }; ok($@, 'Tie::YAML::More - readonly'); }