| Lines 26-32
          use C4::Log;
      
      
        Link Here | 
        
          | 26 | use Getopt::Long; | 26 | use Getopt::Long; | 
        
          | 27 | use Pod::Usage; | 27 | use Pod::Usage; | 
        
          | 28 | use YAML::XS; | 28 | use YAML::XS; | 
            
              | 29 | use Encode; |  |  | 
        
          | 30 | our %NOT_SET_PREFS = map { $_, 1 } qw( Version ); | 29 | our %NOT_SET_PREFS = map { $_, 1 } qw( Version ); | 
        
          | 31 |  | 30 |  | 
        
          | 32 | =head1 NAME | 31 | =head1 NAME | 
  
    | Lines 214-224
          my %commands = (
      
      
        Link Here | 
        
          | 214 |             'o:s' => \$outfile | 213 |             'o:s' => \$outfile | 
        
          | 215 |         ) || _print_usage( 1 ); | 214 |         ) || _print_usage( 1 ); | 
        
          | 216 |  | 215 |  | 
          
            
              | 217 |         if ( $outfile ) { | 216 |         YAML::XS::DumpFile( $outfile || \*STDOUT, GetPreferences() ); | 
            
              | 218 |             YAML::XS::DumpFile( $outfile, GetPreferences() ); |  |  | 
            
              | 219 |         } else { | 
            
              | 220 |             print Encode::decode_utf8(YAML::XS::Dump(GetPreferences())); | 
            
              | 221 |         } | 
        
          | 222 |     }, | 217 |     }, | 
        
          | 223 |     load => sub { | 218 |     load => sub { | 
        
          | 224 |         my ( $infile, $force_version ); | 219 |         my ( $infile, $force_version ); | 
            
              | 225 | -  |  |  |