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;

##</code><code>##

Can't modify non-lvalue subroutine call at /home/wolf/Scrivania/navigator/classes/NavigationRules.pm line 29.

##</code><code>##

has 'visitors' => (is=>'ro',isa=>'Int',writer=>'BUILD',required=>1);

##</code><code>##

You are overwriting a locally defined method (BUILD) with an accessor at /usr/local/lib/perl/5.10.0/Moose/Meta/Attribute.pm line 663