#!perl
use YAML::Any;
use MooseX::ShortCut::BuildInstance qw( build_instance );
use lib '../lib';
use Data::Walk::Extracted;
use Data::Walk::Print;

#Use YAML to compress writing the data ref
my  $firstref = Load(
    '---
    Someotherkey:
        value
    Parsing:
        HashRef:
            LOGGER:
                run: INFO
    Helping:
        - Somelevel
        - MyKey:
            MiddleKey:
                LowerKey1: lvalue1
                LowerKey2:
                    BottomKey1: 12345
                    BottomKey2:
                    - bavalue1
                    - bavalue2
                    - bavalue3'
);
my  $secondref = Load(
    '---
    Someotherkey:
        value
    Helping:
        - Somelevel
        - MyKey:
            MiddleKey:
                LowerKey1: lvalue1
                LowerKey2:
                    BottomKey2:
                    - bavalue1
                    - bavalue3
                    BottomKey1: 12354'
);
my $AT_ST = build_instance( 
		package => 'Gutenberg',
		superclasses =>['Data::Walk::Extracted'],
		roles =>[qw( Data::Walk::Print )],
		match_highlighting => 1,#This is the default
    );
$AT_ST->print_data(
    print_ref	=>  $firstref,
    match_ref	=>  $secondref, 
	sorted_nodes =>{
		HASH => 1, #To force order for demo purposes
	}
);