File Coverage

lib/Perlmazing/Perlmazing/splitpath.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	6	8	75.0
condition	4	6	66.6
subroutine	2	2	100.0
pod	0	1	0.0
total	25	30	83.3

use File::Spec ();
require File::Spec::Win32;

sub main {
  my $path = shift;
  return unless defined $path;
  # A little hack is needed for UNC paths under File::Spec
  local $1;
	my $unc_name = $path =~ /^\\\\(\w+)/ ? $1 : undef;
  if (defined $unc_name) {
    # Let's have it treat it like a regular Win32 path
    $path =~ s/^\\\\$unc_name/C:/;
  }
	my @items = File::Spec::Win32->splitpath($path);
  if (defined $unc_name and @items and length $items[0]) {
    $items[0] = "\\\\$unc_name";
  }
  @items;
}

1;