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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/InputOutput/ProhibitJoinedReadline.run $
   3 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2187 $
   6 ##############################################################################
   7
   8 ## name basic passes
   9 ## failures 0
  10 ## cut
  11
  12 $content = do {local $/ = undef; <>};
  13 @content = <>;
  14 $content = do {local $/ = undef; <$fh>};
  15 @content = <$fh>;
  16 $content = do {local $/ = undef; <STDIN>};
  17 @content = <STDIN>;
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name basic failures
  22 ## failures 4
  23 ## cut
  24
  25 $content = join '', <>;
  26 $content = join('', <>);
  27 $content = join $var, <>;
  28 $content = join($var, <>);
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ## name ppi failures
  33 ## failures 8
  34 ## cut
  35
  36 $content = join '', <$fh>;
  37 $content = join '', <STDIN>;
  38 $content = join('', <$fh>);
  39 $content = join('', <STDIN>);
  40 $content = join $var, <$fh>;
  41 $content = join $var, <STDIN>;
  42 $content = join($var, <$fh>);
  43 $content = join($var, <STDIN>);
  44
  45 #-----------------------------------------------------------------------------
  46
  47 ## name code coverage
  48 ## failures 0
  49 ## cut
  50
  51 $self->join($chain_link_1, $chain_link_2);
  52
  53 #-----------------------------------------------------------------------------
  54
  55 # Local Variables:
  56 #   mode: cperl
  57 #   cperl-indent-level: 4
  58 #   fill-column: 78
  59 #   indent-tabs-mode: nil
  60 #   c-indentation-style: bsd
  61 # End:
  62 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :