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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 my $self = bless {}, 'foo';
   6 my $self = bless( {}, 'foo' );
   7 my $self = bless [], 'foo';
   8 my $self = bless( [], 'foo' );
   9 my $self = bless {} => 'foo';
  10
  11 $baz{bless}; # not a function call
  12 $bar->bless('foo'); # method call
  13
  14 $data{"attachment_$index"} = bless([ $files->[$i] ], "Attachment");
  15
  16 #-----------------------------------------------------------------------------
  17
  18 ## name Basic failure
  19 ## failures 4
  20 ## cut
  21
  22 my $self = bless {};
  23 my $self = bless [];
  24
  25 my $self = bless( {} );
  26 my $self = bless( [] );
  27
  28 #-----------------------------------------------------------------------------
  29
  30 ##############################################################################
  31 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ClassHierarchies/ProhibitOneArgBless.run $
  32 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  33 #   $Author: clonezone $
  34 # $Revision: 2187 $
  35 ##############################################################################
  36
  37 # Local Variables:
  38 #   mode: cperl
  39 #   cperl-indent-level: 4
  40 #   fill-column: 78
  41 #   indent-tabs-mode: nil
  42 #   c-indentation-style: bsd
  43 # End:
  44 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :