| 
      
            Lines 17-23
          package Koha::Item::Template;
      
      
        Link Here
      
     | 
  
        
          | 17 | 
           | 
          17 | 
           | 
        
        
          | 18 | 
          use Modern::Perl;  | 
          18 | 
          use Modern::Perl;  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
          
            
              | 20 | 
              use JSON qw( encode_json decode_json );  | 
              20 | 
              use Encode qw(encode_utf8);  | 
            
            
               | 
               | 
              21 | 
              use JSON   qw(encode_json decode_json);  | 
            
        
          | 21 | 
           | 
          22 | 
           | 
        
        
          | 22 | 
          use base qw(Koha::Object);  | 
          23 | 
          use base qw(Koha::Object);  | 
        
        
          | 23 | 
           | 
          24 | 
           | 
        
  
    | 
      
            Lines 27-33
          Koha::Item::Template - Koha Item Template Object class
      
      
        Link Here
      
     | 
  
        
          | 27 | 
           | 
          28 | 
           | 
        
        
          | 28 | 
          =head1 API  | 
          29 | 
          =head1 API  | 
        
        
          | 29 | 
           | 
          30 | 
           | 
        
          
            
              | 30 | 
              =head2 Class Methods  | 
              31 | 
              =head2 Class methods  | 
            
        
          | 31 | 
           | 
          32 | 
           | 
        
        
          | 32 | 
          =head3 store  | 
          33 | 
          =head3 store  | 
        
        
          | 33 | 
           | 
          34 | 
           | 
        
  
    | 
      
            Lines 55-64
          Returns a deserilized perl structure of the JSON formatted contents
      
      
        Link Here
      
     | 
  
        
          | 55 | 
          sub decoded_contents { | 
          56 | 
          sub decoded_contents { | 
        
        
          | 56 | 
              my ($self) = @_;  | 
          57 | 
              my ($self) = @_;  | 
        
        
          | 57 | 
           | 
          58 | 
           | 
        
          
            
              | 58 | 
                  return decode_json( $self->contents ) if $self->contents;  | 
              59 | 
                  return decode_json( encode_utf8($self->contents) ) if $self->contents;  | 
            
        
          | 59 | 
          }  | 
          60 | 
          }  | 
        
        
          | 60 | 
           | 
          61 | 
           | 
        
          
            
              | 61 | 
              =head3 type  | 
              62 | 
              =head2 Internal methods  | 
            
            
               | 
               | 
              63 | 
               | 
            
            
              | 64 | 
              =head3 _type  | 
            
        
          | 62 | 
           | 
          65 | 
           | 
        
        
          | 63 | 
          =cut  | 
          66 | 
          =cut  | 
        
        
          | 64 | 
           | 
          67 | 
           | 
        
            
              | 65 | 
              -   | 
               | 
               |