Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 87949627

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt

  • ID 879496271a8c6004a12c49d0f057ff20db0607f3
  • Vorgänger 78c6fdee
  • Nachfolger 42bf1ae9

Keine Default Exporte mehr in den main:: space

Ich hoffe ich habe alle erwischt. Dieser Commit, macht folgendes:

Exports in den main:: space passieren immer, wenn ein bin/mozilla/
script ein Modul einbindet, das @EXPORT setzt.

Laut meiner ack/grep Magie sind das SL::MoreCommon und SL::Helper::Flash
gewesen.

In beiden Fällen waren das importe, wo die eigentlichen Funktionen
vorher im main:: space gelegen haben und dann nachträglich in ein Modul
verschoben wurden.

Ich habe also:

1. Im script selber die Exportliste exakt auf die Funktionen gesetzt die
das script selber benutzt, gefunden mit dem oneliner:

perl -MSL::Helper::Flash -nle 'my $re = join "|", \
       @SL::Helper::Flash::EXPORT; print $1 if /($re)/' bin/mozilla/dn.pl \
       | sort | uniq

Das waren in Flash: flash und in MoreCommon: save_form und restore_form.

2. Für den Fall, dass andere scripte im main:: Space diese Funktionen
benutzen alle anderen bin/mozilla Scripte nach diesen Funktionen
durchsucht, und für den Fall dass sie nicht selber ein require
b/m/common.pl machen die entsprechenden imports hinzugefügt.

Unterschiede anzeigen:

bin/mozilla/common.pl
13 13 
use SL::DB::Helper::Mappings;
14 14 
use SL::DBUtils qw(do_query);
15 15 
use SL::Form;
16 
use SL::MoreCommon;
17 
use SL::Helper::Flash;
16 
use SL::MoreCommon qw(restore_form save_form);
18 17 

  		




  19
  18
  
    
use strict;


  		




  20
  19
  
    

  		












  

    
      bin/mozilla/ct.pl
    
  





  54
  54
  
    
use SL::DB::Business;


  		




  55
  55
  
    
use SL::DB::Default;


  		




  56
  56
  
    
use SL::DB::DeliveryTerm;


  		




  57
  
  
    
use SL::Helper::Flash;


  		




  58
  57
  
    
use SL::ReportGenerator;


  		




  59
  58
  
    
use SL::MoreCommon qw(uri_encode);


  		




  60
  59
  
    

  		












  

    
      bin/mozilla/dn.pl
    
  





  37
  37
  
    
use SL::PE;


  		




  38
  38
  
    
use SL::DN;


  		




  39
  39
  
    
use SL::DB::Dunning;


  		




  40
  
  
    
use SL::Helper::Flash;


  		




  
  40
  
    
use SL::Helper::Flash qw(flash);


  		




  41
  41
  
    
use SL::Locale::String qw(t8);


  		




  42
  42
  
    
use SL::ReportGenerator;


  		




  43
  43
  
    

  		












  

    
      bin/mozilla/do.pl
    
  





  40
  40
  
    
use SL::DO;


  		




  41
  41
  
    
use SL::IR;


  		




  42
  42
  
    
use SL::IS;


  		




  43
  
  
    
use SL::MoreCommon qw(ary_diff);


  		




  
  43
  
    
use SL::MoreCommon qw(ary_diff restore_form save_form);


  		




  44
  44
  
    
use SL::ReportGenerator;


  		




  45
  45
  
    
use SL::WH;


  		




  46
  46
  
    
use Sort::Naturally ();


  		












  

    
      bin/mozilla/ic.pl
    
  





  38
  38
  
    
use SL::AM;


  		




  39
  39
  
    
use SL::CVar;


  		




  40
  40
  
    
use SL::IC;


  		




  41
  
  
    
use SL::Helper::Flash;


  		




  
  41
  
    
use SL::Helper::Flash qw(flash);


  		




  42
  42
  
    
use SL::HTML::Util;


  		




  43
  43
  
    
use SL::ReportGenerator;


  		




  44
  44
  
    

  		












  

    
      bin/mozilla/io.pl
    
  





  57
  57
  
    
use SL::DB::Printer;


  		




  58
  58
  
    
use SL::DB::Vendor;


  		




  59
  59
  
    
use SL::Helper::CreatePDF;


  		




  60
  
  
    
use SL::Helper::Flash;


  		




  
  60
  
    
use SL::Helper::Flash qw(flash);


  		




  61
  61
  
    

  		




  62
  62
  
    
require "bin/mozilla/common.pl";


  		




  63
  63
  
    

  		












  

    
      bin/mozilla/is.pl
    
  





  35
  35
  
    
use SL::IS;


  		




  36
  36
  
    
use SL::PE;


  		




  37
  37
  
    
use SL::OE;


  		




  
  38
  
    
use SL::MoreCommon qw(restore_form save_form);


  		




  38
  39
  
    
use Data::Dumper;


  		




  39
  40
  
    
use DateTime;


  		




  40
  41
  
    
use List::MoreUtils qw(uniq);


  		












  

    
      bin/mozilla/oe.pl
    
  





  41
  41
  
    
use SL::OE;


  		




  42
  42
  
    
use SL::IR;


  		




  43
  43
  
    
use SL::IS;


  		




  44
  
  
    
use SL::MoreCommon qw(ary_diff);


  		




  
  44
  
    
use SL::MoreCommon qw(ary_diff restore_form save_form);


  		




  45
  45
  
    
use SL::PE;


  		




  46
  46
  
    
use SL::ReportGenerator;


  		




  47
  47
  
    
use List::MoreUtils qw(uniq any none);


  		












  

    
      bin/mozilla/reportgenerator.pl
    
  





  13
  13
  
    

  		




  14
  14
  
    
use SL::Form;


  		




  15
  15
  
    
use SL::Common;


  		




  16
  
  
    
use SL::MoreCommon;


  		




  
  16
  
    
use SL::MoreCommon qw(restore_form save_form);


  		




  17
  17
  
    
use SL::ReportGenerator;


  		




  18
  18
  
    

  		




  19
  19
  
    
use strict;


  		












Auch abrufbar als:  Unified diff