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

   1 ## name basic failures
   2 ## failures 12
   3 ## cut
   4 tie $scalar, 'Some::Class';
   5 tie @array, 'Some::Class';
   6 tie %hash, 'Some::Class';
   7
   8 tie ($scalar, 'Some::Class');
   9 tie (@array, 'Some::Class');
  10 tie (%hash, 'Some::Class');
  11
  12 tie $scalar, 'Some::Class', @args;
  13 tie @array, 'Some::Class', @args;
  14 tie %hash, 'Some::Class' @args;
  15
  16 tie ($scalar, 'Some::Class', @args);
  17 tie (@array, 'Some::Class', @args);
  18 tie (%hash, 'Some::Class', @args);
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name basic passes
  23 ## failures 0
  24 ## cut
  25 $hash{tie} = 'foo';
  26 %hash = ( tie => 'knot' );
  27 $object->tie();