%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /root/.cpanm/work/1590825950.14464/YAML-Syck-1.32/t/
Upload File :
Create Path :
Current File : //root/.cpanm/work/1590825950.14464/YAML-Syck-1.32/t/yaml-blessed-ref.t

use strict;
use FindBin;
BEGIN { push @INC, $FindBin::Bin }

use TestYAML tests => 1;
use YAML::Syck;
use Data::Dumper;

# These tests assume object creation.
$YAML::Syck::LoadBlessed = 1;

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'

Zerion Mini Shell 1.0