| 
      
            Lines 60-72
          sub new {
      
      
        Link Here
      
     | 
  
        
          | 60 | 
                  return;  | 
          60 | 
                  return;  | 
        
        
          | 61 | 
              }  | 
          61 | 
              }  | 
        
        
          | 62 | 
              if ( !$self->{recipient} ) { | 
          62 | 
              if ( !$self->{recipient} ) { | 
        
          
            
              | 63 | 
                      carp  | 
              63 | 
                      carp 'No vendor passed to order creation: basket = '  | 
            
            
              | 64 | 
              "No vendor passed to order creation: basket = $self->{basket}->basketno()"; | 
              64 | 
                        . $self->{basket}->basketno; | 
            
        
          | 65 | 
                  return;  | 
          65 | 
                  return;  | 
        
        
          | 66 | 
              }  | 
          66 | 
              }  | 
        
        
          | 67 | 
              if ( !$self->{sender} ) { | 
          67 | 
              if ( !$self->{sender} ) { | 
        
          
            
              | 68 | 
                      carp  | 
              68 | 
                      carp 'No sender ean passed to order creation: basket = '  | 
            
            
              | 69 | 
              "No sender ean passed to order creation: basket = $self->{basket}->basketno()"; | 
              69 | 
                        . $self->{basket}->basketno; | 
            
        
          | 70 | 
                  return;  | 
          70 | 
                  return;  | 
        
        
          | 71 | 
              }  | 
          71 | 
              }  | 
        
        
          | 72 | 
           | 
          72 | 
           | 
        
            
              | 73 | 
              -   | 
               | 
               |