Your IP : 216.73.216.74
#!/usr/bin/perl
use strict;
use warnings;
my %tests = (
hash => [
<<'EOM',
{
U => 2,
B => 52,
}
EOM
<<'EOM',
---
- &1 !perl/hash
B: 52
U: 2
- *1
EOM
{ load_only => 1 },
],
hash_blessed => [
<<'EOM',
bless {
U => 2,
B => 52,
}, 'A::Very::Exclusive::Class'
EOM
<<'EOM',
---
- &1 !perl/hash:A::Very::Exclusive::Class
B: 52
U: 2
- *1
EOM
],
array => [
<<'EOM',
[
qw/ one two three four /
]
EOM
<<'EOM',
---
- &1 !perl/array
- one
- two
- three
- four
- *1
EOM
{ load_only => 1 },
],
array_blessed => [
<<'EOM',
bless [
qw/ one two three four /
], "Just::An::Arrayref"
EOM
<<'EOM',
---
- &1 !perl/array:Just::An::Arrayref
- one
- two
- three
- four
- *1
EOM
],
regexp => [
<<'EOM',
my $string = 'unblessed';
qr{$string}
EOM
<<"EOM",
---
- &1 !perl/regexp unblessed
- *1
EOM
],
regexp_blessed => [
<<'EOM',
my $string = 'blessed';
bless qr{$string}, "Foo"
EOM
<<"EOM",
---
- &1 !perl/regexp:Foo blessed
- *1
EOM
],
circular => [
<<'EOM',
my $circle = bless [ 1, 2 ], 'Circle';
push @$circle, $circle;
$circle;
EOM
<<'EOM',
---
- &1 !perl/array:Circle
- 1
- 2
- *1
- *1
EOM
],
coderef => [
<<'EOM',
sub {
my (%args) = @_;
return $args{x} + $args{y};
}
EOM
qr{- &1 !{1,2}perl/code \|-.*return.*args.*x.*\+.*y}s,
{ load_code => 1 },
],
coderef_blessed => [
<<'EOM',
bless sub {
my (%args) = @_;
return $args{x} - $args{y};
}, "I::Am::Code"
EOM
qr{- &1 !{1,2}perl/code:I::Am::Code \|-.*return.*args.*x.*\-.*y}s,
{ load_code => 1 },
],
scalarref => [
<<'EOM',
my $scalar = "some string";
my $scalarref = \$scalar;
$scalarref;
EOM
<<'EOM',
---
- &1 !perl/scalar
=: some string
- *1
EOM
],
scalarref_blessed => [
<<'EOM',
my $scalar = "some other string";
my $scalarref = bless \$scalar, 'Foo';
$scalarref;
EOM
<<'EOM',
---
- &1 !perl/scalar:Foo
=: some other string
- *1
EOM
],
refref => [
<<'EOM',
my $ref = { a => 'hash' };
my $refref = \$ref;
$refref;
EOM
<<'EOM',
---
- &1 !perl/ref
=:
a: hash
- *1
EOM
],
refref_blessed => [
<<'EOM',
my $ref = { a => 'hash' };
my $refref = bless \$ref, 'Foo';
$refref;
EOM
<<'EOM',
---
- &1 !perl/ref:Foo
=:
a: hash
- *1
EOM
],
);
\%tests;