File Coverage

blib/lib/Path/Canonical.pm

Criterion	Covered	Total	%
statement	22	29	75.8
branch	8	10	80.0
condition	0	2	0.0
subroutine	5	6	83.3
pod	0	2	0.0
total	35	49	71.4

package Path::Canonical;
use 5.008005;
use strict;
use warnings;
use base 'Exporter';

our @EXPORT = qw/canon_path canon_filepath/;

our $VERSION = "0.05";

sub canon_filepath {
    my $path = shift;
    return canon_path($path) if $^O ne 'MSWin32';
    $path =~ s!\\!/!g;
    $path =~ s!^([a-zA-Z]:|//[^/]+/+[^/]+)!!g;
    $path = ($&||'') . canon_path($path);
    $path =~ s!/!\\!g;
    $path;
}

sub canon_path {
    my $path = shift;
    my @ret = ();
    $path .= '/' if $path =~ /[.\/]$/;
    for my $tok (split(/\/+/, $path . '-')) {
         next if $tok eq '.';
         if ($tok eq '..') {
             pop @ret;
             next;
         }
         push @ret, $tok if $tok;
    }
    '/' . substr(join('/', @ret), 0, -1)
}

1;
__END__