File Coverage

blib/lib/TeX/AutoTeX/Fileset.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	45	33.3

package TeX::AutoTeX::Fileset;

#
# $Id: Fileset.pm,v 1.8.2.4 2011/01/03 04:06:00 thorstens Exp $
# $Revision: 1.8.2.4 $
# $Source: /cvsroot/arxivlib/arXivLib/lib/TeX/AutoTeX/Fileset.pm,v $
#
# $Date: 2011/01/03 04:06:00 $
# $Author: thorstens $
#

use strict;
### use warnings;
use Carp;

our ($VERSION) = '$Revision: 1.8.2.4 $' =~ m{ \$Revision: \s+ (\S+) }x;

use TeX::AutoTeX::File;

sub new {
  my $that = shift;
  my $class = ref($that) || $that;
  my $self = {
              log      => undef,
	      dir      => undef,
              cache    => {},
              local_hyper_transform => undef,
	      override => {
			   ignore  => 'TYPE_IGNORE',
			   include => 'TYPE_INCLUDE',
			  },
              @_
	     };
  if (!defined $self->{log}) {
    throw TeX::AutoTeX::FatalException 'No log configuration supplied';
  }
  if (!defined $self->{dir}) {
    throw TeX::AutoTeX::FatalException 'No directory specified';
  }
  bless $self, $class;
}

sub new_File {
  my ($self, $filename) = @_;

  if (!defined $filename) {
    throw TeX::AutoTeX::FatalException 'no filename provided to new_File()';
  }
  if ($self->{cache}->{$filename}) {
    return $self->{cache}->{$filename};
  }
  $self->{cache}->{$filename} = TeX::AutoTeX::File->new($self, $filename);
}

sub override {
  my ($self, $type) = @_;
  return $self->{override}->{$type};
}

1;

__END__