view release on metacpan or  search on metacpan

Iterator.pm  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
package Data::Iterator;
require 5.000;
 
use strict;
use Carp;
use FileHandle;
use vars qw($VERSION);
 
$VERSION = 0.021;
 
local $[        = 0;
 
my %_cfg                = ('_set_'              =>  {'-Nodes'                => 0,                # show nodes as normal items
                                                                         '-DigLevel'    => undef,    # dig down to this level
                                                                         '-DigFiles'    => 1,                # show file's content if value is in '-FILE:...'-format
                                                                         '-DigGlobs'    => 1,                # resolve glob references
                                                                         '-DigSRefs'    => 1,                # resolve scalar references
                                                                         '-DigCode'             => 1,                # execute coderefs, capture output
                                                                         '-Files'               => 1,                # allow for '-File:...' root objects
                                                                         '-Code'                => 1,                # allow for coderef root objects
                                                                         '-SRefs'               => 1         # resolve scalarref root objects