git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/ProhibitAutomaticExportation.run

   1 ## name Basic failure, "our @EXPORT;"
   2 ## failures 1
   3 ## cut
   4
   5 require Exporter;
   6 our @EXPORT = qw(foo bar);
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name Basic failure, "use vars @EXPORT;"
  11 ## failures 1
  12 ## cut
  13
  14 use Exporter;
  15 use vars '@EXPORT';
  16 @EXPORT = qw(foo bar);
  17
  18 #-----------------------------------------------------------------------------
  19
  20 ## name Basic failure, "@PACKAGE::EXPORT;"
  21 ## failures 1
  22 ## cut
  23
  24 use base 'Exporter';
  25 @Foo::EXPORT = qw(foo bar);
  26
  27 #-----------------------------------------------------------------------------
  28
  29 ## name Basic pass, "our @EXPORT_OK;"
  30 ## failures 0
  31 ## cut
  32
  33 require Exporter;
  34 our @EXPORT_OK = ( '$foo', '$bar' );
  35
  36 #-----------------------------------------------------------------------------
  37
  38 ## name Basic pass, "use vars %EXPORT_TAGS;"
  39 ## failures 0
  40 ## cut
  41
  42 use Exporter;
  43 use vars '%EXPORT_TAGS';
  44 %EXPORT_TAGS = ();
  45
  46 #-----------------------------------------------------------------------------
  47
  48 ## name Basic pass, "@PACKAGE::EXPORT_OK;"
  49 ## failures 0
  50 ## cut
  51
  52 use base 'Exporter';
  53 @Foo::EXPORT_OK = qw(foo bar);
  54
  55 #-----------------------------------------------------------------------------
  56
  57 ## name Basic pass, "use vars '@EXPORT_OK';"
  58 ## failures 0
  59 ## cut
  60
  61 use base 'Exporter';
  62 use vars qw(@EXPORT_OK);
  63 @EXPORT_OK = qw(foo bar);
  64
  65 #-----------------------------------------------------------------------------
  66
  67 ## name Basic pass, "use vars '%EXPORT_TAGS';"
  68 ## failures 0
  69 ## cut
  70
  71 use base 'Exporter';
  72 use vars qw(%EXPORT_TAGS);
  73 %EXPORT_TAGS = ( foo => [ qw(baz bar) ] );
  74
  75 #-----------------------------------------------------------------------------
  76
  77 ## name No exporting at all
  78 ## failures 0
  79 ## cut
  80
  81 print 123; # no exporting at all; for test coverage
  82
  83 ##############################################################################
  84 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Modules/ProhibitAutomaticExportation.run $
  85 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  86 #   $Author: clonezone $
  87 # $Revision: 2187 $
  88 ##############################################################################
  89
  90 # Local Variables:
  91 #   mode: cperl
  92 #   cperl-indent-level: 4
  93 #   fill-column: 78
  94 #   indent-tabs-mode: nil
  95 #   c-indentation-style: bsd
  96 # End:
  97 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :