Yet Another CPAN Grep

HTML-Zoom ( F/FL/FLORA/HTML-Zoom-0.009006.tar.gz, FLORA, 2011; MetaCPAN )

HTML-Zoom/lib/HTML/Zoom/MaybeDebug.pm ( view source; MetaCPAN )

y $level = $ENV{'HTML_ZOOM_DEBUG'}) {
  foreach my $mod (qw(Smart::Comments Data::Dumper::Concise JSON)) {
    (my $file_stem = $mod) =~ s/::/\//g;
    die "HTML_ZOOM_DEBUG env var set to ${level} - t

l+2;
  no warnings 'redefine';
  *import = sub { Smart::Comments->import(@smartness) };
  my $j = JSON->new->space_after;
  my $d = \&Data::Dumper::Concise::Dumper;
  *Smart::Comments::Dumper = sub {