Permalink
Browse files

Move the synopsis POD to the top

  • Loading branch information...
1 parent 6e0c197 commit 5dd9fbc788a50b8f60328db436b8532ed763be1e @sartak sartak committed Nov 17, 2009
Showing with 29 additions and 27 deletions.
  1. +29 −27 lib/Text/Naming/Convention.pm
@@ -17,6 +17,33 @@ my $_default_convention = '_';
# lowerCamelCase.
my $_default_keep_uppers = 1;
+=head1 NAME
+
+Text::Naming::Convention - Naming or Renaming( for identifiers, mostly )
+
+
+=head1 VERSION
+
+This document describes Text::Naming::Convention version 0.06
+
+
+=head1 SYNOPSIS
+
+ use Text::Naming::Convention qw/naming renaming/;
+ my $name = naming( 'foo', 'bar', 'baz' ) # got foo_bar_baz
+ $name = naming( 'foo', 'bar', 'baz',
+ { convention => 'UpperCamelCase'} ); # got FooBarBaz
+ my $new_name = renaming( 'FooBarBaz' ); # got foo_bar_baz
+ $new_name = renaming( 'FooBarBaz',
+ { convention => 'lowerCamelCase' } ); # got fooBarBaz
+
+
+=head1 DESCRIPTION
+
+This's a simple module for naming and renaming, mostly for identifiers or something like that.
+
+I'm tired of writing renaming sub, so I chose to create this module, wish it can help you too :)
+
=head2 default_convention
get or set default convention, default is '_'.
@@ -207,33 +234,6 @@ sub renaming {
__END__
-=head1 NAME
-
-Text::Naming::Convention - Naming or Renaming( for identifiers, mostly )
-
-
-=head1 VERSION
-
-This document describes Text::Naming::Convention version 0.06
-
-
-=head1 SYNOPSIS
-
- use Text::Naming::Convention qw/naming renaming/;
- my $name = naming( 'foo', 'bar', 'baz' ) # got foo_bar_baz
- $name = naming( 'foo', 'bar', 'baz',
- { convention => 'UpperCamelCase'} ); # got FooBarBaz
- my $new_name = renaming( 'FooBarBaz' ); # got foo_bar_baz
- $new_name = renaming( 'FooBarBaz',
- { convention => 'lowerCamelCase' } ); # got fooBarBaz
-
-
-=head1 DESCRIPTION
-
-This's a simple module for naming and renaming, mostly for identifiers or something like that.
-
-I'm tired of writing renaming sub, so I chose to create this module, wish it can help you too :)
-
=head1 DEPENDENCIES
None.
@@ -259,3 +259,5 @@ Copyright 2008-2009 Best Practical Solutions.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
+=cut
+

0 comments on commit 5dd9fbc

Please sign in to comment.