Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/share/doc/perl-YAML-PP/examples/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/doc/perl-YAML-PP/examples/schema-ixhash.pm
#!/usr/bin/perl
use strict;
use warnings;

### TEST DATA ###

my %tests = (

### - Ordered Hashref (Tie::IxHash)
    order => [
        <<'EOM',
        tie(my %order, 'Tie::IxHash');
        %order = (
            U => 2,
            B => 52,
            c => 64,
            19 => 84,
            Disco => 2000,
            Year => 2525,
            days_on_earth => 20_000,
        );
        \%order;
EOM
        <<'EOM',
---
- &1
  U: 2
  B: 52
  c: 64
  19: 84
  Disco: 2000
  Year: 2525
  days_on_earth: 20000
- *1
EOM
    ],

### - Blessed Ordered Hashref
    order_blessed => [
        <<'EOM',
        tie(my %order, 'Tie::IxHash');
        %order = (
            U => 2,
            B => 52,
            c => 64,
            19 => 84,
            Disco => 2000,
            Year => 2525,
            days_on_earth => 20_000,
        );
        bless \%order, 'Order';
EOM
        <<'EOM',
---
- &1 !perl/hash:Order
  U: 2
  B: 52
  c: 64
  19: 84
  Disco: 2000
  Year: 2525
  days_on_earth: 20000
- *1
EOM
    ],

);

### TEST DATA END ###

\%tests;

Hry