#V-CB-3 = 0

package Simusol::Parsers::INITIAL_CONDITIONS;

use Regexp::Grammars; 
use Data::Dumper;

sub parser{
    my ($miDato,$sentence)= @_;
  
     $parser = qr{
        <Block>

	<rule: Block>    <medida> \- <tipo> \- <nombre> \= <valor>

	<rule: medida>    [a-zA-Z]+   

	<rule: tipo>      [a-zA-Z]+   

	<rule: nombre>    [a-zA-Z0-9]+

	<rule: valor>	  [0-9]+

}xms ;

    if ($sentence =~ $parser) {
	print Dumper $miDato;
	
      $miDato->{%/{Block}->{nombre}}->{"inicial"}->{%/{Block}->{medida.'P'}}= %/{Block}->{valor};
      
}

  else {print " no  entra \n"; }
	  
}
1;
