view release on metacpan or  search on metacpan

lib/Data/Traverse.pm  view on Meta::CPAN

sub ignore_unsupported_refs {
    my $class = shift;
    $IGNORE_BAD_REFS = shift;
} 

# Preloaded methods go here.

# Use this sub to do the prototype only. The real fun
# happens in real_traverse.
sub traverse(&$) { 
    my ( $callback, $ref ) = @_;
    my $type = reftype $ref or 
	croak "Second argument to traverse must be a reference";

    real_traverse( $callback, $ref, $type, caller );
}


sub real_traverse { 
    my ( $callback, $ref, $type, $caller ) = @_;