trigger/email.pm

   1 sub filter {
   2         my $change = shift;
   3         return 1 if $change->{doc}->{person}->{email};
   4 }
   5
   6 sub trigger {
   7         my $change = shift;
   8         warn "# send_email ",dump($change->{doc}->{person});
   9         $change->{doc}->{email_sent}++;
  10 }
  11
  12 1;