| Lines 22-37
          
      
      
        Link Here | 
        
          | 22 |  | 22 |  | 
        
          | 23 | use Modern::Perl; | 23 | use Modern::Perl; | 
        
          | 24 |  | 24 |  | 
          
            
              | 25 | use Test::More tests => 32; | 25 | use Test::More; | 
        
          | 26 | use Test::Warn; | 26 | use Test::Warn; | 
            
              |  |  | 27 |  | 
            
              | 28 | use Text::CSV; | 
            
              | 29 | use Text::CSV_XS; | 
            
              | 30 |  | 
            
              | 31 | use Module::Load::Conditional qw/check_install/; | 
            
              | 32 |  | 
        
          | 27 | BEGIN { | 33 | BEGIN { | 
          
            
              | 28 | 	use FindBin; | 34 |     if ( check_install( module => 'Text::CSV::Unicode' ) ) { | 
            
              | 29 | 	use lib $FindBin::Bin; | 35 |         plan tests => 29; | 
            
              | 30 | 	use_ok('Text::CSV'); | 36 |     } else { | 
            
              | 31 | 	use_ok('Text::CSV_XS'); | 37 |         plan skip_all => "Need Text::CSV::Unicode" | 
            
              | 32 | 	use_ok('Text::CSV::Unicode'); | 38 |     } | 
        
          | 33 | } | 39 | } | 
        
          | 34 |  | 40 |  | 
            
              |  |  | 41 | use Text::CSV::Unicode; | 
            
              | 42 |  | 
        
          | 35 | sub pretty_line { | 43 | sub pretty_line { | 
        
          | 36 | 	my $max = 54; | 44 | 	my $max = 54; | 
        
          | 37 | 	(@_) or return "#" x $max . "\n"; | 45 | 	(@_) or return "#" x $max . "\n"; | 
            
              | 38 | -  |  |  |