File: debug_dump.pl

package info (click to toggle)
libbest-perl 0.17-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 268 kB
  • sloc: perl: 2,600; makefile: 2
file content (22 lines) | stat: -rwxr-xr-x 362 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl -w

use strict;
use warnings;

use Best qw[ YAML::XS YAML::Syck YAML ];

my $data = {
  a => 'b',
  c => [ qw(d e f) ],
  g => {
	h => 'i',
   	j => [ qw(k l m) ],
  },
};
$data->{g}{n} = $data->{c};

sub ::Y  { Dump(@_) }
sub ::YY { require Carp; Carp::confess(::Y(@_)) }

print ::Y($data);
printf "YAML version: %s\n", Best->which('YAML::XS');