use Devel::TraceSubs;
use t::TestYAML tests => 1;

use YAML;
use YAML::Loader;
use YAML::Constructor;
use YAML::Composer;
use YAML::Parser;
use YAML::Scanner;
use YAML::Reader;

sub trace {}
Devel::TraceSubs->new(
    verbose => 1,
    level => '  ',
    params => 0,
#    wrap => ["", ''],
    logger => sub { 
        return if $_[2] eq '<';
        my $line = join '', splice(@_, 0, 6);
        my $args = join ', ', map {
            defined($_)
            ? ref($_) =~ /^YAML/
                ? '$self'
                : do {
                    my $x = $_;
#                     s/\n/\\n/g
#                       unless ref($x);
                    qq{"$x"};
                }
            : '~';
        } @_;
        print "$line($args)\n";
    },
);# ->
trace(
    'YAML::',
    'YAML::Base::',
    'YAML::Processor::',
    'YAML::Loader::',
    'YAML::Constructor::',
    'YAML::Composer::',
    'YAML::Parser::',
    'YAML::Scanner::',
    'YAML::Reader::',
);



use YAML;

is_deeply YAML::Load("---\n- 2\n- 4\n"), [2, 4],
    'Test YAML::Load';