dump lookup debug with new config option

diff --git a/lib/MojoFacets/Config.pm b/lib/MojoFacets/Config.pm
index 14f8c51..0769259 100644 (file)
--- a/lib/MojoFacets/Config.pm
+++ b/lib/MojoFacets/Config.pm
@@ -12,6 +12,7 @@ sub index {
                MASTER
                MAX_FACETS
                PROFILE
+               DEBUG
        ));
 
        foreach my $name ( @config ) {

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 4379535..ceb0d8e 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -680,7 +680,7 @@ sub lookup {
                                }
                        }
                }
-               #warn "XXX ",dump $lookup_path_col->{$on_path}->{$on_col};
+               warn "XXX ",dump $lookup_path_col->{$on_path}->{$on_col} if $ENV{DEBUG};
        }
 
        my $stat;
@@ -689,7 +689,7 @@ sub lookup {
        foreach my $v ( ref $vals eq 'ARRAY' ? @$vals : ( $vals ) ) {
                foreach my $i ( @{ $lookup_path_col->{$on_path}->{$on_col}->{$v} } ) {
                        $on = $items->[$i];
-                       #warn "XXX lookup code $v $i ",dump $on;
+                       warn "XXX lookup code $v $i ",dump $on if $ENV{DEBUG};
                        $code->($stat);
                }
                $stat_code->( $stat ) if $stat_code;