File Coverage

blib/lib/Iterator/File/Utility.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	3	6	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	29	37	78.3

package Iterator::File::Utility;

## $Id: Utility.pm,v 1.4 2008/06/11 05:20:07 wdr1 Exp $

use 5.006;
use strict;
use warnings;

our $VERSION = substr(q$Revision: 1.4 $, 10);

our %default_config =
  (
   'verbose' => 0,
   'debug'   => 0,
  );

sub new {
  my ($class, %config) = @_;

  %config = (%config, %default_config);
  if ($ENV{'ITERATOR_FILE_DEBUG'}) {
    $config{'debug'} = $ENV{'ITERATOR_FILE_DEBUG'};
  }

  my $self =  bless(\%config, $class);


  return $self;
}


sub _verbose {
  my $self = shift;

  return unless ($self->{verbose} || $self->{debug});
  print @_, "\n";
}


sub _debug {
  my $self = shift;

  return unless ($self->{debug});
  print @_, "\n";
}


1;
__END__