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

   1 ## name basic failures
   2 ## failures 7
   3 ## cut
   4
   5 &function_call();
   6 &my_package::function_call();
   7 &function_call( $args );
   8 &my_package::function_call( %args );
   9 &function_call( &other_call( @foo ), @bar );
  10 &::function_call();
  11
  12 #-----------------------------------------------------------------------------
  13
  14 ## name basic passing
  15 ## failures 0
  16 ## cut
  17 exists &function_call;
  18 defined &function_call;
  19 \ &function_call;
  20 \&function_call;
  21 exists &my_package::function_call;
  22 defined &my_package::function_call;
  23 \ &my_package::function_call;
  24 \&my_package::function_call;
  25 $$foo; # for Devel::Cover; skip non-backslash casts
  26
  27 #-----------------------------------------------------------------------------
  28
  29 ## name more passing
  30 ## failures 0
  31 ## cut
  32 function_call();
  33 my_package::function_call();
  34 function_call( $args );
  35 my_package::function_call( %args );
  36 function_call( other_call( @foo ), @bar );
  37 \&my_package::function_call;
  38 \&function_call;
  39 goto &foo;