One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/YAML-LibYAML-0.89-0/t/

View File Name : path-class.t

use FindBin '$Bin';
use lib $Bin;
use strict;
use warnings;

use TestYAML tests => 2;
use YAML::XS qw/ DumpFile LoadFile /;

my $pc = eval "use Path::Class; 1";

my $file;

SKIP: {
    skip "Path::Class need for this test", 2 unless $pc;

    my $data = {
        foo => "boo",
    };
    $file = file("t", "path-class-$$.yaml");
    DumpFile($file, $data);
    ok -f $file, "Path::Class $file exists";

    my $data2 = LoadFile($file);
    is_deeply($data, $data2, "Path::Class roundtrip works");
}

END {
    unlink $file if defined $file;
}