projekt kivitendo

our @EXPORT_OK = qw(_hashify camelify snakify);

sub camelify {

  my ($str) = @_;

  $str =~ s/_+([[:lower:]])/uc($1)/ge;

  ucfirst $str;

}

sub snakify {

  my ($str) = @_;

  $str =~ s/_([[:upper:]])/'_' . lc($1)/ge;

  $str =~ s/(?<!^)([[:upper:]])/'_' . lc($1)/ge;

  lc $str;

}

=item C<camilify $string>

Returns C<$string> converted from underscore-style to

camel-case-style, e.g. for the string C<stupid_example_dude> it will

return C<StupidExampleDude>.

L</snakify> does the reverse.

=item C<snakify $string>

Returns C<$string> converted from camel-case-style to

underscore-style, e.g. for the string C<EvenWorseExample> it will

return C<even_worse_example>.

L</camilify> does the reverse.