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

   1 ## name Basic failures.
   2 ## failures 4
   3 ## cut
   4
   5 sub fooBAR {}
   6 sub FooBar {}
   7 sub Foo_Bar {}
   8 sub FOObar {}
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name Basic passes.
  13 ## failures 0
  14 ## cut
  15
  16 sub foo_BAR {}
  17 sub foo_bar {}
  18 sub FOO_bar {}
  19 sub Foo::Bar::grok {}
  20 sub Class::Encapsulate::_hidden::_hash_overload {}
  21
  22 #-----------------------------------------------------------------------------
  23 # Local Variables:
  24 #   mode: cperl
  25 #   cperl-indent-level: 4
  26 #   fill-column: 78
  27 #   indent-tabs-mode: nil
  28 #   c-indentation-style: bsd
  29 # End:
  30 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :