FS/FS/part_event/Condition/has_company.pm

   1 package FS::part_event::Condition::has_company;
   2 use base qw( FS::part_event::Condition );
   3
   4 use strict;
   5
   6 sub description { 'Customer is commercial'; }
   7
   8 sub condition {
   9   my( $self, $object) = @_;
  10
  11   my $cust_main = $self->cust_main($object);
  12
  13   $cust_main->company =~ /\S/;
  14 }
  15
  16 1;