File Coverage

blib/lib/Path/Class/URI.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	6	8	75.0
condition			n/a
subroutine	12	12	100.0
pod	2	4	50.0
total	58	62	93.5

package Path::Class::URI;

use strict;
use 5.008_001;
our $VERSION = '0.07';

use URI;
use URI::file;
use Exporter::Lite;
use Path::Class;
use Scalar::Util qw(blessed);
use URI::Escape;

our @EXPORT = qw( file_from_uri dir_from_uri );

sub file_from_uri {
    Path::Class::File->from_uri(shift);
}

sub dir_from_uri {
    Path::Class::Dir->from_uri(shift);
}

sub Path::Class::Entity::uri {
    my $self = shift;
    my $escaped_self = $self->new( map { uri_escape($_) } $self->components );
    # escape the components so that URI can see them as path segments
    my $path = $escaped_self->stringify;
    $path =~ tr!\\!/! if $^O eq "MSWin32";
    $path .= '/' if $self->isa('Path::Class::Dir'); # preserve directory if used as base URI
    if ($self->is_absolute) {
        return URI->new("file://$path");
    } else {
        return URI->new("file:$path");
    }
}

sub Path::Class::Entity::from_uri {
    my($class, $uri) = @_;
    $uri = URI->new($uri) unless blessed $uri;;
    $class->new( $uri->file('unix') );
}

1;
__END__