The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# fictitious TAP::DOM
my $VAR1 = {
            'tests_run' => 8,
            'parse_errors' => [
                               'Bad plan.  You planned 6 tests but ran 8.'
                              ],
            'version' => 13,
            'start_time' => '1236463400.25151',
            'exit' => 0,
            'skip_all' => undef,
            'lines' => [
                        {
                         'is_comment' => 0,
                         'has_skip' => 0,
                         'as_string' => 'TAP version 13',
                         'is_yaml' => 0,
                         'is_test' => 0,
                         'is_plan' => 0,
                         'is_unknown' => 0,
                         'is_actual_ok' => 0,
                         'has_todo' => 0,
                         'is_bailout' => 0,
                         'is_pragma' => 0,
                         'is_version' => 1,
                         'raw' => 'TAP version 13'
                        },
                        {
                         'is_comment' => 0,
                         'has_skip' => 0,
                         'as_string' => '1..6',
                         'is_yaml' => 0,
                         'is_test' => 0,
                         'is_plan' => 1,
                         'is_unknown' => 0,
                         'is_actual_ok' => 0,
                         'has_todo' => 0,
                         'is_bailout' => 0,
                         'is_pragma' => 0,
                         'is_version' => 0,
                         'raw' => '1..6'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 1,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 0,
                         'is_pragma' => 0,
                         'as_string' => 'ok 1 - use Data::DPath;',
                         'has_skip' => 0,
                         'is_test' => 1,
                         '_children' => [
                                         {
                                          'is_comment' => 0,
                                          'has_skip' => 0,
                                          'as_string' => 'NO MULTILINE IN TEST',
                                          'is_yaml' => 1,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'data' => [
                                                     {
                                                      'value' => 1,
                                                      'name' => 'Hash one'
                                                     },
                                                     {
                                                      'value' => 2,
                                                      'name' => 'Hash two'
                                                     }
                                                    ],
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => 'NO MULTILINE IN TEST'
                                         }
                                        ],
                         'description' => '- use Data::DPath;',
                         'is_actual_ok' => 0,
                         'is_ok' => 1,
                         'has_todo' => 0,
                         'explanation' => '',
                         'type' => 'test',
                         'directive' => '',
                         'is_version' => 0,
                         'raw' => 'ok 1 - use Data::DPath;'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 2,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 0,
                         'is_pragma' => 0,
                         'as_string' => 'ok 2 - KEYs + PARENT',
                         'has_skip' => 0,
                         'is_test' => 1,
                         'description' => '- KEYs + PARENT',
                         'is_actual_ok' => 0,
                         'is_ok' => 1,
                         'has_todo' => 0,
                         'explanation' => '',
                         'type' => 'test',
                         'directive' => '',
                         'is_version' => 0,
                         'raw' => 'ok 2 - KEYs + PARENT'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 3,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 0,
                         'is_pragma' => 0,
                         'as_string' => 'ok 3 - quoted KEY containg slash',
                         'has_skip' => 0,
                         'is_test' => 1,
                         'description' => '- quoted KEY containg slash',
                         'is_actual_ok' => 0,
                         'is_ok' => 1,
                         'has_todo' => 0,
                         'explanation' => '',
                         'type' => 'test',
                         'directive' => '',
                         'is_version' => 0,
                         'raw' => 'ok 3 - quoted KEY containg slash'
                        },
                        {
                         'is_comment' => 0,
                         'has_skip' => 0,
                         'as_string' => 'pragma +strict',
                         'is_yaml' => 0,
                         'is_test' => 0,
                         'is_plan' => 0,
                         'is_unknown' => 0,
                         'is_actual_ok' => 0,
                         'has_todo' => 0,
                         'is_bailout' => 0,
                         'is_pragma' => 1,
                         'is_version' => 0,
                         'raw' => 'pragma +strict'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 4,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 0,
                         'is_pragma' => 0,
                         'as_string' => 'not ok 4 # TODO spec only',
                         'has_skip' => 0,
                         'is_test' => 1,
                         '_children' => [
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#   Failed (TODO) test at t/data_dpath.t line 144.',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#   Failed (TODO) test at t/data_dpath.t line 144.'
                                         },
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#     Structures begin differing at:',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#     Structures begin differing at:'
                                         },
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#          $got->[0] = Does not exist',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#          $got->[0] = Does not exist'
                                         },
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#     $expected->[0] = ARRAY(0x8e4c238)',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#     $expected->[0] = ARRAY(0x8e4c238)'
                                         }
                                        ],
                         'description' => '',
                         'is_actual_ok' => 0,
                         'is_ok' => 1,
                         'has_todo' => 1,
                         'explanation' => 'spec only',
                         'type' => 'test',
                         'directive' => 'TODO',
                         'is_version' => 0,
                         'raw' => 'not ok 4 # TODO spec only'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 5,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 0,
                         'is_pragma' => 0,
                         'as_string' => 'ok 5 - ANYWHERE + KEY + FILTER int # TODO spec only',
                         'has_skip' => 0,
                         'is_test' => 1,
                         'description' => '- ANYWHERE + KEY + FILTER int',
                         'is_actual_ok' => 1,
                         'is_ok' => 1,
                         'has_todo' => 1,
                         'explanation' => 'spec only',
                         'type' => 'test',
                         'directive' => 'TODO',
                         'is_version' => 0,
                         'raw' => 'ok 5 - ANYWHERE + KEY + FILTER int # TODO spec only'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 6,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 0,
                         'is_pragma' => 0,
                         'as_string' => 'ok 6 # SKIP rethink twice',
                         'has_skip' => 1,
                         'is_test' => 1,
                         'description' => '',
                         'is_actual_ok' => 0,
                         'is_ok' => 1,
                         'has_todo' => 0,
                         'explanation' => 'rethink twice',
                         'type' => 'test',
                         'directive' => 'SKIP',
                         'is_version' => 0,
                         'raw' => 'ok 6 # skip rethink twice'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 7,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 1,
                         'is_pragma' => 0,
                         'as_string' => 'not ok 7 # TODO spec only',
                         'has_skip' => 0,
                         'is_test' => 1,
                         '_children' => [
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#   Failed (TODO) test at t/data_dpath.t line 356.',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#   Failed (TODO) test at t/data_dpath.t line 356.'
                                         },
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#     Structures begin differing at:',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#     Structures begin differing at:'
                                         },
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#          $got->[0] = Does not exist',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#          $got->[0] = Does not exist'
                                         },
                                         {
                                          'is_comment' => 1,
                                          'has_skip' => 0,
                                          'as_string' => '#     $expected->[0] = \'interesting value\'',
                                          'is_yaml' => 0,
                                          'is_test' => 0,
                                          'is_plan' => 0,
                                          'is_unknown' => 0,
                                          'is_actual_ok' => 0,
                                          'has_todo' => 0,
                                          'is_bailout' => 0,
                                          'is_pragma' => 0,
                                          'is_version' => 0,
                                          'raw' => '#     $expected->[0] = \'interesting value\''
                                         }
                                        ],
                         'description' => '',
                         'is_actual_ok' => 0,
                         'is_ok' => 0,
                         'has_todo' => 1,
                         'explanation' => 'spec only',
                         'type' => 'test',
                         'directive' => 'TODO',
                         'is_version' => 0,
                         'raw' => 'not ok 7 # TODO spec only'
                        },
                        {
                         'is_comment' => 0,
                         'is_yaml' => 0,
                         'is_plan' => 0,
                         'number' => 8,
                         'is_unknown' => 0,
                         'is_bailout' => 0,
                         'is_unplanned' => 1,
                         'is_pragma' => 0,
                         'as_string' => 'ok 8 - FILTER eval regex # TODO too dirty, first cleanup _filter_eval',
                         'has_skip' => 0,
                         'is_test' => 1,
                         'description' => '- FILTER eval regex',
                         'is_actual_ok' => 1,
                         'is_ok' => 0,
                         'has_todo' => 1,
                         'explanation' => 'too dirty, first cleanup _filter_eval',
                         'type' => 'test',
                         'directive' => 'TODO',
                         'is_version' => 0,
                         'raw' => 'ok 8 - FILTER eval regex # TODO too dirty, first cleanup _filter_eval'
                        }
                       ],
            'is_good_plan' => 0,
            'end_time' => '1236463400.25468',
            'has_problems' => 2,
            'pragmas' => [
                          'strict'
                         ],
            'plan' => '1..6',
            'tests_planned' => 6
           };