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';
11 $baz{bless}; # not a function call
12 $bar->bless('foo'); # method call
14 $data{"attachment_$index"} = bless([ $files->[$i] ], "Attachment");
16 #-----------------------------------------------------------------------------
25 my $self = bless( {} );
26 my $self = bless( [] );
28 #-----------------------------------------------------------------------------
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 $
35 ##############################################################################
39 # cperl-indent-level: 4
41 # indent-tabs-mode: nil
42 # c-indentation-style: bsd
44 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :