package NavigationRules;
our $VERSION=0.01;

use Moose; 

use XML::Simple;

use FindBin qw($Bin);
use lib ("$Bin/classes");

has 'visitors' => (is=>'ro',isa=>'Int',required=>1,default=>1);
#has 'numVisits' => (is=>'ro',isa=>'Int',default=>1);

sub BUILD {
	my $self=shift;
    my $rules= XMLin("$Bin/conf/navigation_rules.xml",NormaliseSpace=>2);	
    
    $self->visitors=$rules->{navigation}->{visitors};
  #  $self->numVisits=$rules->{navigation}->{numVisits};

}


__PACKAGE__->meta->make_immutable;


1;