Select Code to Download

pirl $> YAML::Syck::Load "--- !!perl/array:var [foo]\n" # long tags
$var = bless( [
...
$var = bless( [
                'foo'
              ], 'var' );

pirl $> YAML::Syck::Load "--- !!perl/scalar:var foo\n" # long tags, ok
+!
$var = bless( do{\(my $o = 'foo')}, 'var' );
...

pirl $> YAML::Syck::Load "--- !var foo\n" # short tags, :(
$var = 'foo';