view release on metacpan or  search on metacpan

NoChex.pm  view on Meta::CPAN

  foreach my $field ($self->post_fields){
    $self->$field($self->cgi->param($field));
  }
}

sub verify{
  my($self)=shift;

  my($ua) = new LWP::UserAgent; 
  my($req) = new HTTP::Request 'POST',$REFERAL_URL; 
  $req->content_type('application/x-www-form-urlencoded');
  $req->content($self->cgi->query_string);  
  my($res) = $ua->request($req);

  if ($res->content eq 'AUTHORISED'){ $self->set_authorised; return 1 }
  elsif ($res->content eq 'DECLINED'){ $self->set_declined; return 0 }
  else { $self->set_no_response; return 0; }
}