File Coverage

blib/lib/HTML/WebMake/SubstCtx.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	27	59.2

#

package HTML::WebMake::SubstCtx;

###########################################################################


use Carp;
use strict;

use HTML::WebMake::Main;

use vars	qw{
  	@ISA
};




###########################################################################

sub new ($$$$$) {
  my $class = shift;
  $class = ref($class) || $class;
  my ($main, $filename, $outname, $dotdots, $fmt, $useurls) = @_;

  my $self = {
    'main'		=> $main,
    'level'		=> 0,
    'inf_loop'		=> 0,
    'filename'		=> $filename,
    'outname'		=> $outname,
    'dotdots'		=> $dotdots,
    'useurls'		=> $useurls,
    'format'		=> $fmt,
  };
  bless ($self, $class);

  $self;
}

# -------------------------------------------------------------------------

1;