File Coverage

lib/String/Prettify.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	4	6	66.6
condition			n/a
subroutine	12	12	100.0
pod	2	2	100.0
total	74	76	97.3

package String::Prettify;
use Exporter;
use vars qw($VERSION @EXPORT @ISA);
@ISA=qw/Exporter/;
@EXPORT = qw(prettify prettify_filename);
use strict;
use Carp;
$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)/g;

sub prettify {
   my $string = shift;
   $string or croak("missing argument");

   _depathify(\$string);
   _ampersand(\$string);
   _spacing(\$string);


   _cap(\$string);

   return $string;
}

sub prettify_filename {
   my $string = shift;
   $string or croak("missing argument");

   $string=~s/^(.+\/+)//;
   my $loc = $1;

   my $ext = _ext(\$string);
   _spacing(\$string);

   $string=~s/ /_/g;
   #$string = lc $string;

   no warnings;
   return "$loc$string$ext";


}


# privates....


sub _cap {
   my $ref = shift;
   #my $string = lc($$_ref);

   $$ref=~s/\b([a-z])/uc($1)/ge;
   return;
}

sub _ext {
   my $_ref = shift;
   if( $$_ref=~s/(\.\w{1,8})$// ){
      return $1;
   }
   return;
}


sub _depathify {
   my $r = shift;

   $$r=~s/^.+\/+//;

   _ext($r);

   return;
}

sub _spacing {
   my $ref = shift;

   $$ref=~s/[_\W]/ /g;

   $$ref=~s/([0-9])([a-zA-Z])/$1 $2/g;
   $$ref=~s/([a-zA-Z])([0-9])/$1 $2/g;


   $$ref=~s/([a-z])([A-Z])/$1 $2/g;
   $$ref=~s/ {2,}/ /g;
   $$ref=~s/^\s+|\s+$//g;
   return;

}

sub _ampersand {
   my $ref = shift;

   $$ref=~s/(\d)&(\d)/$1 $2/g;

   $$ref=~s/^&|&$/_and_/g;

   my $r = qr/[a-z ]{2,}|[[^a-z]\b]/i;

   $$ref=~s/($r)&($r)/$1_and_$2/g;

   $$ref=~s/&//g;

   #$$ref=~s/(\W)&(\W)/$1_and_$2/g;

   #$$ref=~s/(\b[a-z])&([a-z])\b/$1$2/ig; # H&R HR


   #$$ref=~s/([^ a-z])&([^ a-z])/$1_$2/ig;

   #$$ref=~s/\b&\b/_and_/g;



}



1;

__END__