#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;
use B::Concise qw/ walk_output set_style_standard /;

my $walker = B::Concise::compile('-concise', 'newFunc');
walk_output( \*STDOUT );
print Dumper ( $walker->() );
set_style_standard( 'terse' );
print Dumper ( $walker->() );

sub newFunc {
        my $s = 'a x 3';
}