__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use FindBin '$Bin';
use lib $Bin;
use TestYAMLTests tests => 11;
use YAML::XS ();
my $unblessed = YAML::XS::Load('!!perl/array:Foo [23]');
is(ref $unblessed, 'ARRAY', "No objects by default");
$YAML::XS::LoadBlessed = 1;
filters {
perl => 'eval',
yaml => 'load_yaml',
};
my $test = get_block_by_name("Blessed Hashes and Arrays");
my $hash = $test->perl;
my $hash2 = $test->yaml;
# is_deeply is broken and doesn't check blessings
is_deeply $hash2, $hash, "Load " . $test->name;
is ref($hash2->{foo}), 'Foo::Bar',
"Object at 'foo' is blessed 'Foo::Bar'";
is ref($hash2->{bar}), 'Foo::Bar',
"Object at 'bar' is blessed 'Foo::Bar'";
is ref($hash2->{one}), 'BigList',
"Object at 'one' is blessed 'BigList'";
is ref($hash2->{two}), 'BigList',
"Object at 'two' is blessed 'BigList'";
my $yaml = Dump($hash2);
is $yaml, $test->yaml_dump, "Dumping " . $test->name . " works";
######
$test = get_block_by_name("Blessed Scalar Ref");
my $array = $test->perl;
my $array2 = $test->yaml;
# is_deeply is broken and doesn't check blessings
is_deeply $array2, $array, "Load " . $test->name;
is ref($array2->[0]), 'Blessed',
"Scalar ref is class name 'Blessed'";
like "$array2->[0]", qr/=SCALAR\(/,
"Got a scalar ref";
$yaml = Dump($array2);
is $yaml, $test->yaml_dump, "Dumping " . $test->name . " works";
__DATA__
=== Blessed Hashes and Arrays
+++ yaml
foo: !!perl/hash:Foo::Bar {}
bar: !!perl/hash:Foo::Bar
bass: bawl
one: !!perl/array:BigList []
two: !!perl/array:BigList
- lola
- alol
+++ perl
+{
foo => (bless {}, "Foo::Bar"),
bar => (bless {bass => 'bawl'}, "Foo::Bar"),
one => (bless [], "BigList"),
two => (bless [lola => 'alol'], "BigList"),
};
+++ yaml_dump
---
bar: !!perl/hash:Foo::Bar
bass: bawl
foo: !!perl/hash:Foo::Bar {}
one: !!perl/array:BigList []
two: !!perl/array:BigList
- lola
- alol
=== Blessed Scalar Ref
+++ yaml
---
- !!perl/scalar:Blessed hey hey
+++ perl
my $x = 'hey hey';
[bless \$x, 'Blessed'];
+++ yaml_dump
---
- !!perl/scalar:Blessed hey hey
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| data | Folder | 0755 |
|
|
| oop | Folder | 0755 |
|
|
| 000-require-modules.t | File | 274 B | 0644 |
|
| TestYAML.pm | File | 153 B | 0644 |
|
| TestYAMLTests.pm | File | 2.73 KB | 0644 |
|
| alias.t | File | 2.02 KB | 0644 |
|
| api.t | File | 1.49 KB | 0644 |
|
| ascii.t | File | 869 B | 0644 |
|
| author-pod-syntax.t | File | 300 B | 0644 |
|
| binary.t | File | 379 B | 0644 |
|
| blessed.t | File | 1.98 KB | 0644 |
|
| boolean-boolean.t | File | 781 B | 0644 |
|
| boolean-invalid.t | File | 1013 B | 0644 |
|
| boolean-jsonpp.t | File | 765 B | 0644 |
|
| boolean.t | File | 1.28 KB | 0644 |
|
| bug-pvf.t | File | 231 B | 0644 |
|
| bug-stack.t | File | 258 B | 0644 |
|
| code.t | File | 1.47 KB | 0644 |
|
| dump-heuristics.t | File | 265 B | 0644 |
|
| dump-int.t | File | 945 B | 0644 |
|
| dump.t | File | 227 B | 0644 |
|
| duplicate-keys.t | File | 507 B | 0644 |
|
| empty.t | File | 738 B | 0644 |
|
| empty.yaml | File | 0 B | 0644 |
|
| error.t | File | 1.48 KB | 0644 |
|
| file.t | File | 852 B | 0644 |
|
| glob.t | File | 665 B | 0644 |
|
| indent.t | File | 334 B | 0644 |
|
| io-handle.t | File | 1.36 KB | 0644 |
|
| leak.t | File | 1 KB | 0644 |
|
| libyaml-version.t | File | 248 B | 0644 |
|
| load-blessed.t | File | 1.7 KB | 0644 |
|
| load.t | File | 230 B | 0644 |
|
| load_standard_tags.t | File | 1.32 KB | 0644 |
|
| loadfile-empty.t | File | 171 B | 0644 |
|
| long_plain_wrap.t | File | 421 B | 0644 |
|
| magic.t | File | 280 B | 0644 |
|
| native.t | File | 348 B | 0644 |
|
| null.t | File | 831 B | 0644 |
|
| numbers.t | File | 1.07 KB | 0644 |
|
| path-class.t | File | 544 B | 0644 |
|
| pl_sv_undef.t | File | 397 B | 0644 |
|
| private.t | File | 474 B | 0644 |
|
| quote.t | File | 538 B | 0644 |
|
| ref-scalar.t | File | 985 B | 0644 |
|
| regexp.t | File | 2.27 KB | 0644 |
|
| string_nulls.t | File | 239 B | 0644 |
|
| tags.t | File | 554 B | 0644 |
|
| tied.t | File | 2.14 KB | 0644 |
|
| utf8.t | File | 1.53 KB | 0644 |
|
| yaml_tests.yaml | File | 55 B | 0644 |
|