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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 use UNIVERSAL::isa;
   6 require UNIVERSAL::isa;
   7 $foo->isa($pkg);
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name Basic failure
  12 ## failures 2
  13 ## cut
  14
  15 isa($foo, $pkg);
  16 UNIVERSAL::isa($foo, $pkg);
  17
  18 #-----------------------------------------------------------------------------
  19
  20 ##############################################################################
  21 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitUniversalIsa.run $
  22 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  23 #   $Author: clonezone $
  24 # $Revision: 2187 $
  25 ##############################################################################
  26
  27 # Local Variables:
  28 #   mode: cperl
  29 #   cperl-indent-level: 4
  30 #   fill-column: 78
  31 #   indent-tabs-mode: nil
  32 #   c-indentation-style: bsd
  33 # End:
  34 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :