integrity.drl 611 B

1234567891011121314151617181920
  1. package net.p0f.samples.rules_processes.integrity
  2. import net.p0f.samples.rhpam_fuse_integration.shared_dom.Award
  3. import net.p0f.samples.rhpam_fuse_integration.shared_dom.Customer
  4. rule "Incorrect Way of Matching Related Facts"
  5. when
  6. $c: Customer()
  7. $a: Award()
  8. then
  9. System.out.println("[WRONG] Found award " + $a.getReason() + " for customer " + $c.getName());
  10. end
  11. rule "Correct Way of Matching Related Facts"
  12. when
  13. $c: Customer()
  14. $a: Award(carrier == $c)
  15. then
  16. System.out.println("[RIGHT] Found award " + $a.getReason() + " for customer " + $c.getName());
  17. end