| 
      
            Lines 7-17
          use Exception::Class (
      
      
        Link Here
      
     | 
  
        
          | 7 | 
                  description => "Something went wrong!"  | 
          7 | 
                  description => "Something went wrong!"  | 
        
        
          | 8 | 
              },  | 
          8 | 
              },  | 
        
        
          | 9 | 
              'Koha::Exceptions::Patron::FailedDelete' => { | 
          9 | 
              'Koha::Exceptions::Patron::FailedDelete' => { | 
        
            
               | 
               | 
              10 | 
                      isa         => 'Koha::Exceptions::Patron',  | 
            
        
          | 10 | 
                  description => "Deleting patron failed"  | 
          11 | 
                  description => "Deleting patron failed"  | 
        
        
          | 11 | 
              },  | 
          12 | 
              },  | 
        
        
          | 12 | 
              'Koha::Exceptions::Patron::FailedDeleteAnonymousPatron' => { | 
          13 | 
              'Koha::Exceptions::Patron::FailedDeleteAnonymousPatron' => { | 
        
            
               | 
               | 
              14 | 
                      isa         => 'Koha::Exceptions::Patron',  | 
            
        
          | 13 | 
                  description => "Deleting patron failed, AnonymousPatron is not deleteable"  | 
          15 | 
                  description => "Deleting patron failed, AnonymousPatron is not deleteable"  | 
        
        
          | 14 | 
              },  | 
          16 | 
              },  | 
        
            
               | 
               | 
              17 | 
                  'Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute' => { | 
            
            
              | 18 | 
                      isa         => 'Koha::Exceptions::Patron',  | 
            
            
              | 19 | 
                      description => "Mandatory extended attribute missing",  | 
            
            
              | 20 | 
                      fields      => ['type']  | 
            
            
              | 21 | 
                  }  | 
            
        
          | 15 | 
          );  | 
          22 | 
          );  | 
        
        
          | 16 | 
           | 
          23 | 
           | 
        
            
               | 
               | 
              24 | 
              sub full_message { | 
            
            
              | 25 | 
                  my $self = shift;  | 
            
            
              | 26 | 
               | 
            
            
              | 27 | 
                  my $msg = $self->message;  | 
            
            
              | 28 | 
               | 
            
            
              | 29 | 
                  unless ( $msg) { | 
            
            
              | 30 | 
                      if ( $self->isa('Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute') ) { | 
            
            
              | 31 | 
                          $msg = sprintf("Missing mandatory extended attribute (type=%s)", $self->type ); | 
            
            
              | 32 | 
                      }  | 
            
            
              | 33 | 
                  }  | 
            
            
              | 34 | 
               | 
            
            
              | 35 | 
                  return $msg;  | 
            
            
              | 36 | 
              }  | 
            
            
              | 37 | 
               | 
            
            
              | 38 | 
              =head1 NAME  | 
            
            
              | 39 | 
               | 
            
            
              | 40 | 
              Koha::Exceptions::Patron - Base class for patron exceptions  | 
            
            
              | 41 | 
               | 
            
            
              | 42 | 
              =head1 Exceptions  | 
            
            
              | 43 | 
               | 
            
            
              | 44 | 
              =head2 Koha::Exceptions::Patron  | 
            
            
              | 45 | 
               | 
            
            
              | 46 | 
              Generic patron exception.  | 
            
            
              | 47 | 
               | 
            
            
              | 48 | 
              =head2 Koha::Exceptions::Patron::FailedDelete  | 
            
            
              | 49 | 
               | 
            
            
              | 50 | 
              Deleting patron failed.  | 
            
            
              | 51 | 
               | 
            
            
              | 52 | 
              =head2 Koha::Exceptions::Patron::FailedDeleteAnonymousPatron  | 
            
            
              | 53 | 
               | 
            
            
              | 54 | 
              Tried to delete the anonymous patron.  | 
            
            
              | 55 | 
               | 
            
            
              | 56 | 
              =head2 Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute  | 
            
            
              | 57 | 
               | 
            
            
              | 58 | 
              A required mandatory extended attribute is missing.  | 
            
            
              | 59 | 
               | 
            
            
              | 60 | 
              =head1 Class methods  | 
            
            
              | 61 | 
               | 
            
            
              | 62 | 
              =head2 full_message  | 
            
            
              | 63 | 
               | 
            
            
              | 64 | 
              Overloaded method for exception stringifying.  | 
            
            
              | 65 | 
               | 
            
            
              | 66 | 
              =cut  | 
            
            
              | 67 | 
               | 
            
        
          | 17 | 
          1;  | 
          68 | 
          1;  | 
        
            
              | 18 | 
              -   | 
               | 
               |