view release on metacpan or  search on metacpan

examples/revisit_element.pl  view on Meta::CPAN

#! perl

use v5.20;
use strict;
use experimental 'signatures';


use Ref::Util 'is_hashref', 'is_arrayref';
use CXC::Data::Visitor 'visit', -results, -passes;

use builtin::compat 'load_module';
use lib::relative q{.};
load_module 'utils';

my %struct = (
    fruit => {
        berry  => 'purple',
        apples => [ 'fuji', 'macoun' ],
    } );

my %context = (
    rows       => [],
    struct_map => {},
);

visit(
    \%struct,
    sub ( $kydx, $vref, $context, $meta ) {
        my $path = render_element( \%struct, $kydx, $vref, $context, $meta );
        return
             $path eq '{fruit}{apples}'
          && $meta->{visit} == 1
          && $meta->{pass} != PASS_REVISIT_ELEMENT ? RESULT_REVISIT_ELEMENT : RESULT_CONTINUE;
    },
    context => \%context,
);

render_table( $context{rows} );