File Coverage

lib/File/Filename.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition	1	5	20.0
subroutine	3	3	100.0
pod	0	1	0.0
total	21	27	77.7

package File::Filename;
use strict;
require Exporter;
use vars qw(@ISA @EXPORT_OK $VERSION $delimiter);
@ISA = qw(Exporter);
@EXPORT_OK = (qw(get_filename_segments));
$VERSION = sprintf "%d.%02d", q$Revision: 1.5 $ =~ /(\d+)/g;

$delimiter = qr/[^a-zA-Z0-9 ]+/;

sub get_filename_segments {
	my $filename = shift;
	$filename or warn('get_fields_arrayref() no arg.') and return;
	my $delimiters = shift;
	$delimiters ||= 	$delimiter;

   $filename=~s/\/+$//;
	$filename=~s/^.+\/+//; # take out slashes if present

	[
      map { $_=~s/^\s+|\s+$//g; $_ }
      grep { /./ } # dont use empty elements
      split( /$delimiters/, $filename)
   ]
}

1;

__END__