File: yaml-blessed-ref.t

package info (click to toggle)
libyaml-syck-perl 1.05-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 812 kB
  • ctags: 1,573
  • sloc: ansic: 3,852; perl: 2,520; makefile: 49
file content (19 lines) | stat: -rw-r--r-- 351 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use strict;
use t::TestYAML tests => 1;
use YAML::Syck;
use Data::Dumper;

my $bref = bless \eval{my $scalar = 'YAML::Syck' }, 'foo';
my $bref2bref = bless \$bref, 'bar';

my $dd =  Dumper $bref2bref;
my $edd;
{
    no strict 'vars';
    $edd = eval $dd;
}

my $x = 42;
bless \$x, "numifyffoo";

is Dumper(Load(Dump($bref2bref))),   $dd, 'YAML::Syck'