## name basic failures (print)
## failures 7
## cut
#print $fh; #Punt on this
#print $fh if 1;
print $fh "something" . "something else";
print $fh generate_report();
print $fh "something" if $DEBUG;
print $fh @list;
print $fh $foo, $bar;
print( $fh @list );
print( $fh $foo, $bar );
#-----------------------------------------------------------------------------
## name basic failures (printf)
## failures 7
## cut
#printf $fh; #Punt on this
#printf $fh if 1;
printf $fh "something" . "something else";
printf $fh generate_report();
printf $fh "something" if $DEBUG;
printf $fh @list;
printf $fh $foo, $bar;
printf( $fh @list );
printf( $fh $foo, $bar );
#-----------------------------------------------------------------------------
## name more arcane passes (print)
## failures 0
## cut
print "something" . "something else";
print "something" . "something else"
or die;
print {FH} "something" . "something else";
print {FH} "something" . "something else"
or die;
print generate_report();
print generate_report()
or die;
print {FH} generate_report();
print {FH} generate_report()
or die;
print rand 10;
print rand 10
or die;
print {FH};
print {FH}
or die;
print {FH} @list;
print {FH} @list
or die;
print {FH} $foo, $bar;
print {FH} $foo, $bar
or die;
print @list;
print @list
or die;
print $foo, $bar;
print $foo, $bar
or die;
print $foo , $bar;
print $foo , $bar
or die;
print foo => 1;
print foo => 1
or die;
print( {FH} @list );
print( {FH} @list )
or die;
print( {FH} $foo, $bar );
print( {FH} $foo, $bar )
or die;
print();
print()
or die;
print( );
print( )
or die;
print( @list );
print( @list )
or die;
print( $foo, $bar );
print( $foo, $bar )
or die;
print if 1;
print or die if 1;
print 1 2; # syntax error, but not a policy violation
$foo{print}; # not a function call
{print}; # no siblings
#-----------------------------------------------------------------------------
## name more arcane passes (printf)
## failures 0
## cut
printf "something" . "something else";
printf "something" . "something else"
or die;
printf {FH} "something" . "something else";
printf {FH} "something" . "something else"
or die;
printf generate_report();
printf generate_report()
or die;
printf {FH} generate_report();
printf {FH} generate_report()
or die;
printf rand 10;
printf rand 10
or die;
printf {FH};
printf {FH}
or die;
printf {FH} @list;
printf {FH} @list
or die;
printf {FH} $foo, $bar;
printf {FH} $foo, $bar
or die;
printf @list;
printf @list
or die;
printf $foo, $bar;
printf $foo, $bar
or die;
printf $foo , $bar;
printf $foo , $bar
or die;
printf foo => 1;
printf foo => 1
or die;
printf( {FH} @list );
printf( {FH} @list )
or die;
printf( {FH} $foo, $bar );
printf( {FH} $foo, $bar )
or die;
printf();
printf()
or die;
printf( );
printf( )
or die;
printf( @list );
printf( @list )
or die;
printf( $foo, $bar );
printf( $foo, $bar )
or die;
printf if 1;
printf or die if 1;
printf 1 2; # syntax error, but not a policy violation
$foo{printf}; # not a function call
{printf}; # no siblings
#-----------------------------------------------------------------------------
## name more bracing arcana (print)
## failures 0
## cut
print {$fh};
print {$fh} @list;
print {$fh} $foo, $bar;
print( {$fh} @list );
print( {$fh} $foo, $bar );
#-----------------------------------------------------------------------------
## name more bracing arcana (printf)
## failures 0
## cut
printf {$fh};
printf {$fh} @list;
printf {$fh} $foo, $bar;
printf( {$fh} @list );
printf( {$fh} $foo, $bar );
#-----------------------------------------------------------------------------
##############################################################################
# $Date: 2009-02-15 11:10:42 -0600 (Sun, 15 Feb 2009) $
# $Author: clonezone $
# $Revision: 3116 $
##############################################################################
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :